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1.  INTRODUCTION 


This  part  of  the  document  describes  the  digital  computer  program  devel- 
oped to  analyze  and  design  wing- body  combinations  at  supersonic  speeds.  The 
program  is  an  extension  of  an  earlier  program  that  is  presented  in  references 
1 and  2.  The  theoretical  considerations  underlying  the  method  used  in  the 
program  are  discussed  in  reference  3. 

The  complete  program  consists  of  five  sections:  Geometry  Definition, 
Geometry  Transformation,  Geometry  Paneling,  Aerodynamics,  and  Flow  Vis- 
ualization. The  first  three  sections  present,  in  a form  acceptable  to  the  Aero- 
dynamics section,  a geometric  description  of  the  configuration  under  study. 

A wing-alone,  body-alone,  or  wing-body  combination  configuration  may  be  de- 
fined. The  Geometry  sections  redefine  the  body  as  an  equivalent  body  of  cir- 
cular cross  section.  The  wing  and  that  part  of  the  body  in  the  region  aft  of  the 
wing  leading-edge  intersection  are  subdivided  into  a large  number  of  panels. 

The  wing  may  be  defined  to  have  thickness  or  may  consist  of  a camber  surface 
only.  The  Aerodynamics  section  then  solves  the  problem  by  first  computing 
the  velocity  components  induced  by  the  various  singularities  that  represent  the 
configuration.  The  body  thickness  and  camber  effects  are  represented  by  line 
sources  and  doublets  along  the  body  axis,  and  wing  thickness  effects  are  repre- 
sented by  a distribution  of  sources  located  in  the  wing  reference  plane.  The 
effects  of  camber  and  incidence  of  the  wing  and  the  effects  of  any  residual  inter- 
ferences are  simulated  by  a surface  distribution  of  vortices  on  the  wing  and 
body.  When  the  velocity  components  are  computed,  the  program  determines 
the  strengths  of  the  singularities  required  to  satisfy  the  given  boundary  condi- 
tions. In  addition  to  solving  the  problem  of  optimizing  wing  camber  shape,  the 
program  will  also  solve  the  direct  analysis  problem  of  calculating  pressures, 
forces,  and  moments  on  a given  configuration,  and  the  indirect  design  problem 
of  determining  the  wing  shape  for  a given  lift  distribution.  The  program 
selects  the  boundary  conditions  appropriate  to  the  particular  optimization, 
direct  or  indirect  problem  being  considered,  and  solves  the  problem.  The 
last  section  of  the  program,  Flow  Visualization,  computes  velocities  at 
selected  field  points  and  integrates  streamlines  about  the  configuration. 

This  part  of  the  document  is  a guide  for  program  maintenance.  An  outline 
of  the  program  structure  is  followed  by  a detailed  description  of  each  section  of 
the  program.  The  section  on  program  usage  contains  the  input  format,  timing 
and  output  estimates,  and  the  required  machine  components.  Input  and  output 
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formats  of  a sample  case  are  also  included.  The  section  on  program  records 
contains  flow  charts,  overlay  diagrams,  and  descriptions  of  each  subroutine. 
A program  listing  and  other  appendixes  complete  this  part  of  the  document. 


2 


2.  DESCRIPTION 
2.  1 Geometry  Definition 

This  part  of  the  program  defines  geometrically  a wing,  a body,  or  a wing- 
body  combination.  The  definition,  in  the  form  of  body  meridian  lines  and  wing 
percent  chord  lines,  is  written  on  a tape  that  is  read  by  the  Geometry  Trans- 
formation section  of  the  program 

Meridian  lines  may  be  visualized  as  stringers  running  lengthwise  along 
the  surface  of  the  body.  Each  meridian  line  consists  of  a series  of  straight- 
line  segments  connecting  points  on  the  body  surface;  adjacent  points  are  con- 
nected by  straight  lines.  Constant  percent  chord  lines,  much  like  meridian 
lines,  run  along  the  wing  surface  in  a spanwise  direction. 

A body  surface  is  specified  by  a set  of  defining  sections  normal  to  the  X- 
axis.  Points  on  defining  sections  are  given  in  polar  coordinate  form  ( p , 0 ) or  in 
rectangular  coordinates  (Y,  Z).  The  number  of  points  in  each  section  must  be 
the  same  as  the  number  of  meridian  lines.  Since  the  X-coordinate  of  each  de- 
fining section  is  known,  the  X,  Y,  Z-coordinates  of  each  point  in  a section  can 
be  computed.  The  first  meridian  line  is  constructed  by  joining  the  first  point 
in  each  section;  succeeding  meridian  lines  are  similarly  constructed.  As  an 
option,  the  meridian  lines  may  be  "enriched";  additional  meridian  line  points 
are  inserted  by  three-dimensional  interpolation  from  a space  curve  through 
the  original  points. 

Both  upper  and  lower  wing  surfaces  may  be  defined.  Only  the  construction 
of  upper  wing  percent  chord  lines  will  be  discussed,  because  later  sections  of 
the  program  are  presently  limited  to  this  case.  Although  more  complicated, 
the  procedure  is  similar  to  that  used  to  define  the  body.  Percent  chord  lines 
(enriched  if  desired)  on  the  surface  of  the  wing  are  computed  from  a given  set 
of  control  chords.  These  control  chords  must  be  parallel  to  the  X-Y  plane  but 
are  not  necessarily  parallel  to  the  X-Z  plane.  In  order  to  locate  each  control 
chord  in  space,  sufficient  data  are  given  to  find  the  intersections  of  the  chord 
with  the  leading  and  trailing  edges  of  the  given  planform.  The  distance  between 
these  intersections  is  called  (in  this  discussion  only)  the  "oblique  chord  length,  " 
because  control  chords  need  not  be  streamwise. 

The  projection  of  wing  planform  in  the  X-Y  plane  is  specified  by  a set  of 
points  on  the  leading  and  trailing  edges;  the  number  of  points  in  each  set  need 
not  be  the  same.  The  planform  may  extend  past  the  control  chord  region,  but 
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the  program  will  reject  any  chord  which  does  not  intersect  both  the  leading  and 
trailing  edges.  The  planform  may  be  open  or  closed  at  the  wing  tip.  A plan- 
form  is  closed  if  the  leading  edge  and  trailing  edge  intersect  at  the  wing  tip; 
the  generated  percent  chord  lines  will  then  converge  to  that  point.  If  the  leading 
and  trailing  edges  do  not  intersect  the  planform  is  open. 

A control  chord  is  given  as  a set  of  points  in  a two-dimensional  coordinate 
system.  These  points  are  scaled  (except  for  zero-length  chords)  so  that  the 
difference  in  abscissa  of  the  first  and  last  points  is  equal  to  the  oblique  chord 
length.  This  scaled  chord  is  then  placed  on  the  planform.  Wing  percent  chord 
lines  are  constructed  between  scaled  control  chords. 

The  wing-body  intersection  option  calculates  the  intersection  of  each  wing 
percent  chord  line  with  the  body  surface.  The  wing  percent  lines  are  then 
truncated  at  the  body  surface. 

All  variable-length  arrays  are  stored  in  a single  buffer  of  10,  000  cells. 

As  such  there  are  no  individual  limits  on  the  number  of  body  stations,  number 
of  meridian  or  percent  lines,  number  of  chords  or  number  of  points  defining 
the  leading  and  trailing  edges  of  the  wing.  (However,  the  data  are  scanned  and 
excessively  large  arrays  are  rejected. ) Maximum  sizes  for  data  arrays  are 
usually  set  by  later  program  segments. 

2.  2 Geometry  Transformation 

This  section  of  the  program  reads  the  body  and  wing  definitions  from  a tape  • 
written  by  the  previous  section.  It  then  transforms  the  body  and  wing  to  a new 
coordinate  system,  orients  the  wing  planform  parallel  to  the  x-y  plane  in  this 
transformed  system,  and  finds  the  intersections  of  wing  percent  chord  lines 
with  the  body  surface.  Results  are  written  on  tapes  for  use  by  later  program 
sections. 

Three  types  of  configurations  may  be  handled:  body  alone,  wing  alone,  or 
wing-body  combination.  If  a body  surface  is  involved  only  half  of  it  is  given; 
it  is  assumed  to  be  symmetrical  about  the  X-Z  plane.  Then  a new  x,  y,  z 
coordinate  system  is  set  up  with  the  origin  at  the  centroid  of  the  forward  end  of 
the  body  and  the  x-axis  passing  through  the  aft  end  centroid;  the  z-axis  lies  in 
the  X-Z  plane.  In  the  new  coordinate  system  the  body  ends  (unless  of  zero 
radius)  are  not  necessarily  parallel  to  the  y-z  plane;  this  is  corrected  by  a 
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linear  adjustment  of  all  x-coordinates  of  the  body  points.  Also,  the  new  body 
length  (distance  between  body  end  centroids)  may  differ  from  the  original  length. 
The  original  set  of  body  defining  stations  is  converted  to  the  new  coordinate 
system  by  a transformation  of  the  form  x = 0 ( X + )3  where  Q!  and  are  constants. 
The  body  radius  and  centroid  are  computed  at  each  of  these  stations.  In  a body 
alone  case,  the  radius  and  centroid  are  then  found  by  interpolation  at  a given 
number  of  equally  spaced  stations. 

In  a wing-body  combination  case,  the  wing  is  also  transformed  to  the  x,  y, 
z coordinate  system.  Then  the  intersections  of  the  wing  leading  and  trailing 
edges  with  the  body  surface  are  computed;  let  z A be  the  average  of  the  z-coor- 
dinates  of  these  two  points.  The  wing  is  effectively  flattened  by  changing  each 
z-coordinate  of  the  wing  to  z^.  The  body  is  then  intersected  by  the  wing  per- 
cent chord  lines  of  the  flattened  wing. 

The  calculation  of  body  radius  and  centroid  is  now  resumed.  A set  of 
equally  spaced  stations  is  chosen  between  the  forward  end  of  the  body  and  the 
station  at  which  the  wing  leading  edge  intersects  the  body;  a similar  set  is 
selected  from  there  on  aft.  The  calculation  of  the  interval  between  stations  in 
each  region  is  subject  to  the  constraints  that  the  total  number  of  stations  must 
agree  with  a given  number  and  that  the  two  intervals  must  be  approximately 
the  same  in  each  region. 

In  a wing  alone  case,  the  transformation  is  omitted.  However,  the  wing 
is  flattened;  z.  is  taken  as  the  average  of  the  z-coordinates  of  the  inboard 
point  on  the  leading  and  trailing  edge  percent  chord  lines.  Bodies  defined  by 
a maximum  of  16  meridan  lines  of  90  points  each  and  wings  of  16  percent  chord 
lines  of  90  points  each  can  be  processed. 

2.  3 Geometry  Paneling 

This  program  section  panels  the  body  and/or  wing  and  provides  additional 
data  required  by  the  following  section  (Aerodynamics).  Two  cases  can  be  given 
as  input  to  the  Geometry  Paneling  section  under  the  present  program  Overlay 
setup:  the  wing-body  case  and  the  wing  alone  case.  The  body  alone  case  does 
not  use  the  paneling  section. 

For  a wing-body  case,  the  body  definition  that  is  written  on  a scratch  tape 
by  the  previous  section  (Geometry  Transformation)  is  read  into  storage  by  an 
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input  subroutine,  INPUTB.  The  paneling  is  accomplished  by  combining  this 
definition  with  data  for  the  body  cutting  planes,  read  from  input  cards.  A body 
cutting  plane  is  oriented  normal  to  the  X-axis.  The  body  panel  areas  are 
computed,  and  the  panel  centroid  and  control  point  coordinates  are  calculated. 
Streamwise  chords  are  constructed  through  the  panel  control  points,  and  the 
chord  lengths  are  calculated.  Finally  the  panel  0 -inclination  and  a-incidence 
angles  are  computed.  The  paneling  description  and  the  additional  geometric 
data  are  written  on  an  output  tape  for  printout  purposes  and  on  a scratch  tape 
for  use  in  the  Aerodynamics  section. 

The  wing  paneling  that  is  required  for  either  the  wing-body  or  the  wing 
alone  case  is  obtained  similarly.  The  wing  definition  written  by  the  Geometry 
Transformation  section  is  read  into  storage  arrays  by  an  input  subroutine, 
INPUTW,  and  used  with  card  input  data  to  provide  a wing  paneling  scheme. 

Again  the  wing  panel  areas,  chord  lengths,  and  centroid  and  control  point 
coordinates  are  calculated.  The  inclination  and  incidence  angles  are  defined 
to  be  zero  for  wing  panels  since  the  wing  is  assumed  to  be  a flat  plate  with  no 
dihedral  at  zero  incidence.  As  an  option,  camber  and  thickness  ordinates  and 
slopes  are  computed  from  airfoil  ordinate  tables.  The  wing  paneling  data  are 
written  on  output  and  scratch  tapes. 

Certain  program  restrictions  are  present.  Though  a body  that  closes  to 
a point  can  be  defined  in  the  definition  section,  such  a body  can  not  be  paneled. 
For  this  case  the  leading  row  of  panels  would  consist  of  triangular,  not  quad- 
rilateral panels.  This  difficulty  is  avoided  by  excluding  body  cutting  planes 
that  intersect  the  body  at  the  nose. 

A second  restriction  requires  a flat  wing  for  all  program  cases.  Under 
the  current  Overlay  scheme,  however,  the  Geometry  Transformation  section 
always  provides  such  a definition.  Hence  this  restriction  results  in  no  difficulty 
to  the  user. 

When  errors  occur,  an  error  message  appears,  execution  of  the  present 
case  is  terminated,  a partial  data  printout  is  given,  and  the  next  case  is  pro- 
cessed. 
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2.4  Aerodynamics 


The  aerodynamics  problem  is  solved  in  three  stages:  (1)  geometry  input 
and  calculation  of  the  velocity  components,  and  (2)  a preprocessing  stage, 
which  is  preparation  for  (3)  the  calculation  of  the  aerodynamic  cases.  Control 
of  the  flow  through  the  main  links  of  this  section  of  the  program  is  provided  by 
the  subroutine  AERO  and  is  dependent  on  the  configuration  (wing  alone,  body 
alone,  or  wing-body  combination)  used. 

The  wing  is  defined  by  a number  of  panels.  For  an  isolated  body,  the 
definitipn  is  given  as  an  equivalent  body  of  circular  cross-section.  In  order  to 
compute  the  interference  effects  on  the  body,  for  wing -body  combinations,  the 
body  surface  aft  of  the  wing  leading-edge  intersection  is  also  represented  by 
panels.  The  geometric  definition  of  the  configuration  is  read  from  tapes 
generated  by  the  geometry  sections;  this  information  also  includes  the  areas, 
centroids,  and  control  points  of  each  panel. 

Velocity  components  due  to  the  various  singularities  representing  the  con- 
figuration are  computed  and  stored  on  tape.  For  a wing  defined  to  have  thick- 
ness, the  program  computes  velocity  components  induced  by  sources  located 
in  the  reference  plane  of  the  wing.  The  effects  of  body  thickness,  camber, 
and  incidence  are  simulated  by  placing  line  sources  and  doublets  along  the  axis 
of  the  body.  The  effects  of  camber  and  incidence  of  the  wing,  and  any  residual 
interference  effects,  are  represented  by  a surface  distribution  of  vorticity  on 
the  wing  and  body  panels.  An  option  is  provided  to  print  out  velocity  components 
due  to  the  individual  singularities. 

The  preprocessing  stage  consists  of  the  following  computations.  The  ve- 
locity components  are  reordered  and  rewritten  on  tape.  Several  matrix  opera- 
tions are  performed  on  the  matrix  of  the  aerodynamic  influence  coefficients 
(the  normal  components  of  velocity  due  to  the  vortex  distributions),  and  the  re- 
sults of  these  are  also  written  on  tape.  In  particular,  if  the  matrix  is  repre- 
sented by  the  following  sub-matrices: 
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where  [A^]  is  the  influence  on  the  body  due  to  the  body 
[Awb]  is  the  influence  on  the  wing  due  to  the  body 
[AgW]  is  the  influence  on  the  body  due  to  the  wing 
[A^^Jis  the  influence  on  the  wing  due  to  the  wing 

Then  the  following  matrices  are  formed: 

1°]  = [awbJ  * [abb1  1 

_1  • [abw] 

[Ar]  = l\rw]  ~ [[awb]  • [^b]  • [abw]] 

A^  is  referred  to  as  the  "reduced"  matrix  of  the  aerodynamic  influence 
coefficients. 

For  optimization  of  the  wing  camber  surface  shape,  the  Lagrange  multi- 
plier technique  is  applied,  and  the  coefficients  of  the  resulting  system  of 
equations  are  computed  (see  equation  (153),  Part  I): 
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This  operation  results  in  the  formation  of  two  matrices.  The  first  matrix 
includes  wing  lift  and  pitching  moment  constraints,  and  the  second  only  the 
wing  lift  constraint.  For  the  latter  case,  the  row  and  column  of  the  matrix 
corresponding  to  \ is  omitted.  Both  matrices  are  inverted  and  stored  on  tape. 
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The  aerodynamic  cases  can  now  be  computed.  Additional  input  cards  are 
used  to  request  the  following  cases: 

1)  To  compute  the  wing  camber  and  twist,  given  the  pressure  dis- 
tribution of  the  wing 

2)  To  compute  the  pressure  distribution,  given  the  geometry  of  the 
configuration 

3)  To  optimize  the  wing  shape  for  minimum  drag,  given  the  wing 
lift  or  wing  lift  and  pitching  moment  constraints 

In  each  case  a drag  polar  may  be  computed  by  inputing  a series  of  incre- 
mental angles  of  attack.  If  a wing  with  thickness  is  specified  in  the  input 
geometry,  the  program  provides  an  option  to  compute  the  pressures  due  to 
thickness  and  to  add  them  to  the  pressures  due  to  camber.  Another  option 
selects  either  the  linear,  nonlinear,  or  exact  isentropic  equation  for  compu- 
ting pressure  coefficients.  For  a given  configuration  and  Mach  number,  any 
number  of  aerodynamic  cases  may  be  computed. 

Upon  completion,  the  Aerodynamics  section  either  transfers  control  to  the 
Flow  Visualization  section  if  this  additional  analysis  is  requested  or  returns 
control  to  the  main  link. 

2 . 5 Flow  Visualization 

This  section  of  the  program  provides  a method  of  analyzing  the  flow  about  a 
wing,  body,  or  wing-body  combination.  The  configuration  is  first  processed 
by  the  Geometric  and  Aerodynamic  sections  of  the  program.  The  necessary  in- 
formation is  transmitted  to  subroutine  FLOVIZ  via  an  intermediate  tape  (see 
Appendix  D,  Tape  Formats).  This  tape  may  be  saved  for  future  runs,  thereby 
eliminating  the  necessity  of  rerunning  through  the  Geometric  and  Aerodynamic 
sections. 

The  method  of  aerodynamic  influence  coefficients  is  also  applied  to  the 
calculation  of  field  velocity  components.  The  perturbation  velocities  in  the 
field  are  determined  by  summing  the  product  of  the  elementary  influence  com- 
ponents and  their  appropriate  singularity  strengths . From  the  perturbation 
velocities,  the  local  flow  vectors  and  pressure  coefficients  in  the  field  are 
computed. 

Three  methods  are  available  for  presenting  the  flow-field  data.  First, 
streamlines  may  be  generated  by  computing  the  velocity  at  discrete  points  and 
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integrating  by  a variable-step  Adams-Moulton  predictor -corrector  method. 
Second,  the  flow  may  be  examined  at  points  of  a two-dimensional  or  three- 
dimensional  rectangular  grid  by  specifying  the  increments  of  spacing  along  each 
axis  and  an  origin  for  the  grid.  The  two-dimensional  grid  may  be  skewed  by 
specifying  an  implicit  axis  and  a vector  formed  by  the  grid  origin  and  another 
point.  Finally,  the  flow  may  be  analyzed  at  individual  field  points. 

A special  printing  option  provides  the  capability  of  examining  the  velocity 
and  pressure  contributions  of  the  various  singularities  individually.  The  results 
of  this  option,  if  requested,  immediately  follow  the  total  velocity  components 
and  pressure  coefficient,  and  are  labelled  as  to  type  of  singularity. 

The  flow  through  the  Flow  Visualization  section  of  the  program  is 
controlled  by  subroutine  FLOVIZ.  Upon  completion  of  all  requested 
options,  control  is  returned  to  the  subroutine  AERO. 
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3.  USE  OF  THE  PROGRAM 


3.1  Machine  Components 

The  program  is  coded  in  FORTRAN  IV  and  MAP  for  the  IBM  7090/7094 
(32K)  digital  computer  under  the  control  of  the  Systems  Monitor,  IBSYS  Version 
13.  As  the  program  is  organized  to  utilize  the  Overlay  feature  of  the  Loader, 
IBLDR,  one  of  the  system  units  must  be  used  as  the  input-output  tape  on  which 
the  links  are  written.  This  unit  is  specified  on  the  $ORIGIN  control  card 
according  to  the  procedure  outlined  in  reference  2. 

In  addition  to  the  input  and  output  tapes,  the  program  uses  seven  tape  units 
for  scratch  purposes.  The  choice  of  tape  units  to  be  used  will  depend  on  the 
particular  computer  installation,  and  tapes  must  be  changed  as  required.  Sub- 
routine OPCAMI  (see  section  4.2)  initializes  all  the  tape  units  by  assigning 
a logical  number  to  each.  To  make  the  necessary  changes,  it  will  be  sufficient 
to  change  only  the  logical  designations  in  this  subroutine. 

3.2  Program  Timing  and  Output  Estimates 

The  computer  time  and  number  of  lines  of  printout  for  a single  configuration 
can  be  estimated  from  the  following  equations  based  on  experience  on  the  IBM 
7094/M2. 

Time  (minutes)  = 2.  5 + . 5G  (4.  x 10  4 x P2)  x A +C  + . IF 

where  G indicates  type  of  paneling: 

= 0 . , no  paneling 
= 1 . , wing  paneling  only 
= 2 . , wing  and  body  paneling 

P is  number  of  panels.  If  no  paneling  is  required,  use  P = 10. 
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A indicates  aerodynamic  calculations: 

= 0. , no  aerodynamic  calculations 
= 1 . , aerodynamic  calculations  requested 
C is  number  of  aerodynamic  cases.  Each  of  the  following  is 
considered  a case: 

Wing  optimization  case; 

Direct  aerodynamic  case; 

Indirect  aerodynamic  case; 

Each  angle  of  a polar  series. 

F is  total  number  of  field  points,  grid  points,  and  streamline 
points  required  for  flow  visualization  calculations. 

Output  (lines)  = 100  + ^500  + (10  * * V * c]  xT+F 

where  T indicates  type  of  case: 

= 1 . , wing-alone  case 
= 2 . , body-alone  case 
= 3 . , wing -body  case 
V indicates  velocity  component  printout: 

= 1 . , no  velocity  component  printout: 

= 2. , velocity  components  requested 
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3.  3 Input  Data  Format 


SUMMARY 


The  following  chart  summarizes  the  input  data  cards  required  to  analyze 
each  of  the  three  basic  configurations. 


Geometry  Definition 
Card  Set 

Wing- Alone 

Body-Alone 

Wing- Body 

Card  ID 

Yes 

Yes 

Yes 

Cards  2D-9D 

No 

Yes 

Yes 

Cards  10D-18D 

Yes 

No 

Yes 

Cards  19D-20D 

No 

No 

Yes 

Card  2 ID 

Opt 

Opt 

Opt 

Card  2 2D 

Yes 

Yes 

Yes 

Geometry  Paneling 
Card  Set 

Wing-Alone 

Body- Alone 

Wing- Body 

Cards  1P-2P 

Yes 

Yes 

Yes 

Card  3P 

Yes 

No 

Yes 

Cards  4P-7P 

No 

No 

Yes 

Cards  8P-13P 

Yes 

No 

Yes 

Card  14  P 

Yes 

No 

Yes 

Aerodynamic 
Card  Set 

Wing-Alone 

Body- Alone 

Wing-Body 

Cards  1A-6A 

Yes 

Yes 

Yes 

Cards  7A,  8A-8AA, 
9A-9AA 

No 

Yes 

Yes 

Cards  10A-10AA 
(or  -10AB)  * 

Opt  (if  CASE  = 1. ) 

No 

Opt 

Cards  11A-11AA, 
12A-12AA  (or  -12AC) 

Opt  (if  CASE  = 2.) 

No 

Opt 

Card  13A 

Opt  (if  CASE  = 3. ) 

No 

Opt 

Cards  14A-14AA 
(or  -14AB) 

Opt  (if  THICK=  1. ) 

No 

Opt 

Cards  15A 

Opt  (if  POLAR  > 0. ) 

No 

Opt 

Card  16  A 

Yes 

Yes 

Yes 
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Flow  Visualization 
Card  Set 

Wing-Alone 

Body- Alone 

Wing- Body 

Cards  1F-2F 

Yes 

Yes 

Yes 

Cards  3F,  3FA, 
3FB,  3FC 

Opt 

(GRIDS  option) 

Opt 

Opt 

Cards  4F,  4FA, 
4FB,  4FC 

Opt 

(STREAMLINES  option) 

Opt 

Opt 

Cards  5F,  5FA 

Opt 

(POINTS  option) 

Opt 

Opt 

Card  6F 

Yes 

Yes 

Yes 

Terminal  Card 

Yes 

Yes 

Yes 

Note:  For  Aerodynamic  section  input  data,  only  one  of  the  following  three 
card  sets  can  be  used  per  case: 

1.  Cards  10A-10AA  (or  -10AB).  For  CASE  = 1.  (design  case), 

defines  AC  distribution. 

P 

2.  Cards  11A-11AA,  12A-12AA  (or  -12AC).  For  CASE  = 2. 

(analysis  case),  gives  wing  angle  of  attack,  twist,  and 
Az/Ax  camber  distribution. 

3.  Card  13 A.  For  CASE  =3.  (optimization  case),  gives  constraints. 


14 


A typical  stacking  sequence  of  input  data  cards  is  illustrated  in  the  following 

figure . 


END  CARD  TERMINATES 
PROBLEM  SET 


REPEAT  CARDS  ARE  ADDED  FOR 
OTHER  PROBLEMS  INVOLVING 
DIFFERENT  CONFIGURATIONS 
OR  MACH  NUMBERS 

DATA  CARD  SET  FOR 
FLOW  VISUALIZATION 
IS  REPEATED  AS  NEEDED 

TWO  BLANKS  TERMINATE 
AERODYNAMIC  CASES 

DATA  CARD  SETS  4A-15A  l_  BLANK  CARD  jjA 

ARE  REPEATED  

AS  NEEDED  (I.E. 

MINIMUM  DRAG, 

FLAT  PLATE, 

CONSTANT 
PRESSURE) 


V DATA  CARDS  1D-22D  (GEOMETRY  DEFINITION  SET  ) 
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GEOMETRY  DEFINITION  CARD  SET 

All  geometry  definition  data,  except  title  cards  and  literal  statements,  are 
punched  in  six-  field , ten-digit  format.  A decimal  point  is  required  in  each 
data  field. 

For  a body-alone  problem  definition,  Cards  10D  through  20D  are  omitted. 
For  a wing-alone  problem  definition.  Cards  2D  through  9D,  19D  and  20D  are 
omitted. 


Column 

Code 

Explanation 

Card  ID 

1-6 

DEFINE 

Columns  1-6  contain  the  word  DEFINE. 

Card  2D 

1-4 

BODY 

Columns  1-4  contain  the  work  BODY.  Card 
2D  is  used  only  when  a body  or  wing-body 
combination  is  defined. 

Card  3D 

1-72 

TITLE 

Any  desired  title. 

Card  4D 

1-10 

BNS 

Number  of  defining  body  stations. 
2.  ^ BNS  ^ 50.. 

11-20 

BTHETA 

There  is  a defining-body  cross  section  at 
each  body  station.  This  column  gives 
number  of  points  on  each  cross  section. 
3.  < BTHETA  < 10.. 

21-30 

AXIS  (1) 

Y- coordinate  of  body  definition  axis. 

31-40 

AXIS  (2) 

Z -coordinate  of  body  definition  axis. 

41-50 

CHDB 

Dimensional  tolerance  to  be  used  in  generat- 

ing  additional  body-meridian  line  points 
between  given  stations.  If  CHDB  ^ 0.  or 
if  BNS  < 4. , no  additional  points  will  be 
generated.  If  0.  < CHDB  4 0.001,  then 
a value  of  0.001  will  be  used. 


Array  of  angles  (8),  in  degrees  at  each 
defining  station.  There  must  be  exactly 
BT HE T A angles  ^ 10,  six  per  card. 


Card(s)  5D  1-10 


(2  cards  51-60 
maximum) 
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Column 


Code 


Explanation 


Card(s)  6D* 
(50  maximum) 

1-10 

STA 

11-20 

YZ(1) 

21-30 

YZ  (2) 

31-40 

SC  ODE 

Note  — If  options  1,  4,  5,  or  6 
are  designated,  the  added  infor- 
mation card(s)  7D,  8D,  or  9D 
must  be  inserted  behind  that 
station  card  6D  and  before  the 
next  station  card  6D. 


*One  card  is  needed  for  each 
defining  station. 


X-coordinate  of  body  station. 

A Y- increment  added  to  body  definition 
axis  to  establish  a local  origin  from 
which  all  p , 0 for  this  station  are 
measured. 

AZ-increment  added  to  body  definition 
axis  to  establish  a local  origin  from 
which  all  P , 0 for  this  station  are 
measured. 

= 0.  this  cross  section  is  identical  to 
previous  section. 

= 1.  this  cross  section  is  specified  by 
BTHETA  values  of  p (on  cards  7D). 
The  0-array  of  card(s)  5D  will  be 
used. 

= 2.  this  cross  section  is  a circle. 
(Radius  given  in  columns  41-50.) 

= 3.  this  cross  section  is  an  ellipse. 
(Horizontal  semi- axis  is  given  in 
columns  41-50,  the  vertical  in 
columns  51-60.) 

= 4.  this  cross  section  is  circular 
(radius  given  in  columns  41-50)  with 
an  angle  array  (on  card(s)  8D)  differ- 
ent from  the  0-array  on  card(s)  5D. 
This  option  allows  local  deviations  in 
the  meridian  lines. 

= 5.  this  cross  section  is  specified  by 
a set  of  p (on  card(s)  7D)  and  by  a 
nonstandard  set  of  0 (on  card(s)  8D). 

= 6.  this  cross  section  is  given  by  a 
set  of  Y,  Z pairs  (on  cards  9D). 
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Column  Code 


Explanation 


41-50  RAD(l)  Radius  of  section  if  SCODE  = 2.  or  4. . 

Horizontal  semi- axis  if  SCODE  = 3. . 
Not  used  otherwise. 

51-60  RAD(2)  Vertical  semi-axis,  if  SCODE  = 3. . 

Not  used  otherwise. 

A set  of  body  radii  P if  SCODE  = 1 . or 
5. . There  must  be  BTHETA  £ 10 
values  of  P. 

A set  of  0 if  SCODE  = 4.  or  5. . There 
must  be  BTHETA  <.  10  values  of  0. 


Card  9D  1-10  Y^  Array  of  Y,  Z coordinate  pairs  if 

(3  maximum  SCODE  = 6. . 

per  station)  11-20  Zj 

21-30  Y2 

31-40  Z2 

41-50  Y3 

51-60  Z3 

etc. 

Notes  - 1.  There  is  a maximum  of  three  Card(s)  7D  and/or 

Card(s)  8D  per  station. 

2 . For  inputting  a body  meridian  exactly  coincident 
with  a wing's  intersection,  it  is  recommended  that 
the  cross-section  option  SCODE  = 6.  be  used  and 
that  CHDB  = 0. . The  Z-height  of  the  intersection's 
meridian  (Card(s)  9D)  is  held  constant  and  at  exactly 
the  same  height  as  the  wing  (Card(s)  17 Dj.  The  aft- 
most  body-defining  station  must  be  a zero-radius 
circle. 
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Column  Code  Explanation 


Card  10D 

1-4 

WING 

Columns  1-4  contain  the  word  WING. 
This  card  is  used  whenever  a wing  is 
defined.  For  the  case  of  a body  alone, 
omit  cards  10D  through  19D.  After 
reading  a WING  card,  the  program 
expects  wing  definition  data. 

Card  11D 

1-72 

TITLE 

Any  desired  title . 

Card  12D 

1-10 

PNLE 

Number  of  corner  or  break  points 
defining  the  planform  leading  edge. 

11-20 

PNTE 

Number  of  corner  or  break  points  de- 
fining the  planform  trailing  edge. 

21-30 

AFN 

Number  of  planform  control  chords . 
AFN  ^ 2. , including  the  wing -tip 
control  chord.  AFN  must  equal  the 
larger  of  PNLE  and  PNTE ; that  is , 
each  control  chord  must  begin  or  end 
at  a planform  defining  point. 

31-40 

PLN 

Number  of  constant  percent  chord 
lines  used  to  form  spanwise  panel  edges 
Wing  leading  and  trailing  edges  are 
counted  in  this  number. 

41-50 

WUL 

= 1. 

51-60 

CHD 

Must  be  left  blank. 

Card  13D 

1-10 

PCODE 

= 1. 

11-20 

ACODE 

= 1. 

21-30 

EPS 

Must  be  left  blank. 

Card(s)  14D 

1-10 

Xl 

Array  of  points  defining  the  planform 
leading  edge,  arranged  in  order  from 

11-20 

Yl 

inboard  to  outboard.  There  must  be 
PNLE  point  pairs ; three  coordinates 

21-30 

x2 

per  card. 

31-40 

Y2  Notes  - 

l.  For  wing-body  combinations,  and 

Yi  must  lie  inside  the  body  so  that  an 

41-50 

X3 

intersection  can  be  calculated. 
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Column 


Code 


Explanation 


51-60  Y3 

etc. 

Card(s)  15D  1-10  X± 

11-20  Yx 

21-30  X2 

31-40  Y2 

41-50  X3 


2.  The  X-axis  defining  these  points  orig- 
inates at  the  nose  of  the  configuration 
(for  wing -body  cases)  as  defined  by 
the  first  Card  6D. 

Array  of  points  defining  the  planform 
trailing  edge,  arranged  in  order  from 
inboard  to  outboard.  There  must  be 
PNTE  point  pairs;  three  coordinates 
per  card. 

Note  - For  wing-body  combinations,  X^  and 
Y^  must  lie  inside  the  body  so  that  an 
intersection  can  be  calculated. 


51-60  Y3 
etc. 

Cards  16D  Cards  16D  and  17D  always  occur  in  pairs  (unless  AFNU  = 0.  on 
card  16D)  to  define  each  wing  control  chord.  There  must  be 
AFN  > 2 . pairs  of  16D  and  17D  cards . 


1-10  AFK  Code  to  indicate  how  the  control  chord 

is  oriented  on  the  planform.  See 
sketches  below. 


AFK  = 1. 


WING  CHORD  DEFINITION 


LEADING-EDGE  POINT 
DEFINES  CONTROL  CHORD: 
The  control  chord  leading 
point  X j is  at  a planform 
leading-edge  defining  point. 


TRAILING-EDGE  POINT 
DEFINES  CONTROL  CHORD: 
The  control  chord  trailing 
point  Xo  is  at  a planform 
trailing-edge  defining  point. 


LEADING-  AND  TRAILING- 
EDGE  POINTS  BOTH  DEFINE 
CONTROL  CHORD:  The  con- 
trol chord  leading  edge  Xj  is  at 
a planform  leading-edge  defining 
point  0f 

The  control  chord  trailing  point 
X~  is  at  a planform  trailing-edge 
defining  point. 


Both  conditions  must  be 
satisfied  at  the  tip. 
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Column  Code 


Explanation 


WINGTIP  CONTROL  CHORD  DEFINITION  (OBLIQUE) 

YL  yT  yT  yL 


AFK  = 1.  AFK  = 2.  AFK  = 3. 


11-20  BETA 


21-30  Yl 


31-40  Yt 


41-50  AFNU 


Two  of  the  three  quantities  Y^,  Y-p  or  ft 
must  be  given.  AFK  indicates  the 
appropriate  pair.  In  summary: 

if  AFK  = 1. , input  Yl  and  ft; 
if  AFK  = 2. , input  Yt  and  ft  ; 
if  AFK  = 3. , input  Yj  and  Yl* 

The  angle  of  yaw,  ft  , in  the  diagram.  If 
AFK  = 1.  or  2.  and  BETA  = 0. , the  chord 
is  streamwise.  BETA  is  ignored  if 
AFK  = 3 . . 

Y-coordinate  of  leading  edge  of  control 
chord.  If  AFK  = 1.  or  3. , Yl  is  equal 
to  the  Y-coordinate  of  the  corresponding 
planform  leading-edge  defining  point. 

If  AFK  = 2. , Yl  is  ignored. 

Y-coordinate  of  trailing  edge  of  control 
chord.  If  AFK  = 2.  or  3. , Yt  is  equal  to 
the  Y-coordinate  of  the  corresponding 
planform  trailing-edge  defining  point. 

If  AFK  = 1. , Yt  is  ignored. 

= 2 . The  height  and  control-chord  true 
length  are  specified  on  the  following 
card  17D. 

= 0.  The  previous  17D  card  values  are 
used.  Card  17D  should  not  follow  if 
AFNU  = 0., 
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Column  Code  Explanation 


Card(s)  17  D 1-10  X0  =0. 

11-20  Zq  Z-coordinate  at  the  leading  edge  of 

control  chord. 

21-30  Xq  The  control-chord  true  length.  If  Zq  = 

Zq  = 0 , Xq  may  be  given  an  arbitrary 
length,  which  is  then  scaled  by  the  pro- 
gram to  make  Xq  equal  to  the  true 
chord  length. 

31-40  Zq  Z-coordinate  of  control  chord  at  the 

trailing  edge . 

Notes  - 1.  Zq  and  Zq  specify  the  height  of  the 

wmg.  Zq  = Zq,  always;  furthermore, 
the  height  of  each  control  chord, 
including  the  tip,  must  be  the  same. 

2.  For  wing -body  configurations,  Zq  = Zq 
must  equal  the  height  of  the  body 
meridian  intended  as  the  intersection 
meridian  [Z -values,  Card(s)  9D  for 
SCODE  = 6.]  . 

3.  The  control -chord  true  length  Xq  may 
be  determined  for  AFK  = 3.  streamwise 
chords  by  subtracting  the  X-coordinates 
of  the  corresponding  leading-  and 
trailing-edge  points  (or  by  applying  the 
right -triangle  rule  at  an  oblique  chord) . 


For  AFK  = 1.  or  2. , interpolation  must 
be  done  along  the  planform  edge  to 
locate  a point  corresponding  to  the 
chord’s  associated  planform  defining 
point. 


Array  of  constant  percent  chord  values 
corresponding  to  the  panel  spanwise 
edges.  The  leading-edge  value  P^  = 0. . 
There  are  PLN  values  required  with  the 
last  value  (for  the  trailing  edge)  = 100. 
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Card  19D 


Card  20D 


Card  21D 


Card  22D 


Column  Code 
1-3  WBX 


1-10 


11-20 


1-5  TDUMP 


1-6  DEFEND 


Explanation 

Columns  1-3  contain  the  letters  WBX. 

This  card  indicates  that  a wing-body 
intersection  is  desired.  For  wing 
only  or  body  alone  cases,  this  card  is 
omitted. 

= 1.  linear  interpolation  used  on  body 
station  perimeters  to  compute  addi- 
tional points  between  meridian  lines 
in  the  wing  intersection  region. 

= 2.  biquadratic  interpolation  used  on 
body  station  perimeters  to  compute 
additional  points  between  meridian 
lines  in  the  wing  intersection  region. 

Dimensional  intersection  tolerance. 
Specifies  the  accuracy  desired  in  locat- 
ing wing-body  intersection  points.  A 
value  of  0,001  is  suggested. 

Columns  1-5  contain  the  letters  TDUMP. 
This  card  is  included  if  a dump  of  geo- 
metry definition  and  geometry  transfor- 
mation tapes  is  desired.  See  Appendix 
C for  a detailed  description  of  these  tapes. 

Columns  1-6  contain  the  word  DEFEND. 
This  card  ends  the  definition  set  and 
must  not  be  omitted. 
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GEOMETRY  PANELING  CARD  SET 


All  paneling  data,  except  title  cards  and  literal  statements,  are  punched  in 
six-field,  ten-digit  format.  A decimal  point  is  required  in  each  data  field. 

For  body-alone  case,  cards  3P-14P  are  omitted. 

For  wing-alone  case,  cards  4P-7P  are  omitted. 


Column  Code  Explanation 

Card  IP  1-5  PANEL  Columns  1-5  contain  the  word  PANEL. 

This  is  the  first  card  in  the  paneling 
link  and  must  always  follow  the 
DEFEND  card. 


The  number  of  source  control  stations 
at  which  the  radius  for  an  equivalent 
body  of  circular  cross  section  and  the 
actual  body  station  centroid  height  are 
computed.  A maximum  of  50  stations 
may  be  requested.  It  is  recommended 
that  50  stations  be  used.  The  radius 
at  each  control  station  is  used  to 
determine  the  source  strength  necessary 
to  simulate  the  body  thickness.  The 
camber  height  at  each  control  station 
and  the  body  angle  of  attack  (Card  7 A) 
are  used  to  determine  the  doublet 
strength  necessary  to  simulate  body 
camber  and  angle  of  attack. 

11-20  Dimensional  tolerance  applied  to  the 

additional  points  generated  between 
meridian  lines  on  the  perimeter  of  body 
defining  stations.  This  controls  the 
area  and  centroid  location  calculations. 

A value  of  0.001  is  suggested. 

21-30  This  field  contains  an  interpolation 

code.  The  program  first  determines 
an  equivalent  radius,  R,  at  each  body 
defining  section,  X,  and  then  estab- 
lishes an  R vs.  X array.  Interpolation 
for  additional  radii  at  other  stations  is 


Card  2P  1-10 


Note  - In  a wing-alone 

problem,  Card  2P 
is  blank. 
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Column  Code 


Explanation 


performed  on  this  array.  The  same 
technique  is  used  to  determine  centroid 
locations . 

= 1.  linear  interpolation  for  equivalent 
radii  and  centroid  locations  of  the 
source  control  stations  that  are  be- 
tween body  defining  stations. 

= 2.  biquadratic  interpolation  for 

equivalent  radii  and  centroid  locations 
at  the  source  control  stations  that  are 
between  body  defining  stations. 

31-40  = 1.  linear  interpolation  between 

meridian  line  points  on  the  body 
definition  sections. 

= 2.  if  biquadratic  interpolation  is 
desired. 

41-50  A dimensional  tolerance  value,  E,  such 

that  if  any  equivalent  radius  length  or 
centroid  height,  (z  centroid),  is  less 
than  E,  its  value  will  be  set  equal  to 
zero.  A value  of  0.001  is  suggested. 

Card  3P  1-10  XPEE  Fraction  of  local  streamwise  panel 

chord  at  which  panel  control  point  is 
located.  0.  < XPER  < 1. . 

Note  - XPER  = .95  for  all  cases 
discussed  in  this  report. 

11-20  YPER  Fraction  of  local  panel  width  at  which 

panel  control  point  is  located. 

0.  < YPER  < 1.. 

Note  - YPER  =0.  is  a code  used 
to  locate  the  panel  control 
point  on  the  chord  through  the 
panel  centroid.  YPER  = 0. , 
for  all  cases  discussed  in  this 
report. 
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Column  Code  Explanation 

1-10  BODY  PANEL  Columns  1-10  contain  the  words  BODY 

PANEL. 

I- 10  PLNB*  Number  of  transverse  body  panel  edges 

aft  of  wing  trailing  edge-body  inter- 
section s 21.  If  PLNB  =0.,  omit 
card  6P. 

II- 20  PLNW*  Number  of  transverse  body  panel  edges 

within  the  wing  body  intersection 
region  ^ 16. 

21-30  TOLB  Slope  tolerance  on  body  secondary  panel 

part  leading  edges.  Panel  parts  with 

AY 

slopes  — = TOLB  in  the  local 
AX 

panel  coordinate  system)  are  eliminated. 
TOLB  = 0.02  is  suggested. 

x-values  of  transverse  body  panel  edges 
aft  of  the  wing  trailing  edge  - body 
intersection.  There  are  PLNB  values. 
Omit  this  card(s)  if  PLNB  = 0. 

Each  field  contains  a number  identify- 
ing those  spanwise  wing  panel  edges 
which  continue  around  the  body  to  form 
transverse  body  panel  edges  at  the  body 
intersection.  The  table  must  always 
start  with  the  number  1.  and  terminate 
with  the  wing  trailing- edge  number. 
There  are  PLNW  values. 

Card  8P  1-10  WING  PANEL  Columns  1-10  contain  the  words  WING 

PANEL. 

Card  9P  1-10  PLANE  Number  of  buttock  lines  which  locate 

the  streamwise  wing  panel  edges  speci- 
fied by  cards  10P  and  IIP. 

Wing- alone  problem:  PLANE  is  the 
number  of  buttock  lines  locating  the 
streamwise  panel  edges  including  both 


Card  4P 
Card  5P 


*(PLNB  + PLNW)  < 21 
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Column  Code 


Explanation 


the  wing  tip  and  centerline . 


Wing- body  problem:  PLANE  is  the 
number  of  buttock  lines  locating  the 
streamwise  panel  edges,  but  does  not 
include  the  inboard  edge  located  by  the 
program  at  the  wing-body  intersection. 
PLANE  >2..  See  sketches  below. 


OR 


OR 


PLANE=4. 


YAWED  WING 
CONTROL  CHORD 


TRUNCATED 

WING 

PLANFORM 


PLANE=6. 


11-20  OPTF  =1.  upper  and  lower  airfoil  ordinates 

are  read  in  (cards  12P  and  13P)  at 
each  wing  buttock  line  passing 
through  the  panel  centroids.  If  the 
wing  is  untwisted  and  has  the  same 
airfoil  section  from  root  to  tip,  only 
one  airfoil  table  is  necessary.  The 
program  will  scale  this  table  to  fit 
the  appropriate  chord. 

= 0.  no  tables  are  read  in  and  the  wing 
is  a flat  plate  at  zero  incidence. 

21-30  SNUM  Number  of  given  airfoil  ordinate  tables. 


= 0. , only  if  OPTF  = 0. 


Column  Code 


Explanation 


31-40  TOLW 


Card(s)  10P  1-10  YCEPTi 

• » 

♦ • 

• • 

51-60  YCEPTg 

etc. 


= 1. , same  airfoil  section  from  wing 
root  to  tip . 

= (PLANE  - 1),  wing  alone  case  airfoils 
specified. 


= PLANE,  wing -body  case  airfoils 
specified. 


Slope  tolerance  on  wing  secondary  panel 
part  leading  edges . Panel  parts  with 


slopes 


AY 

AX 


TOLW  are  elimi- 


nated. TOLW  = 0.01  is  suggested. 


Wing  buttock  line  values  at  which 
streamwise  panel  edges  are  specified. 
There  are  (PLANE  -1)  values.  The  tip 
edge  is  specified  on  card  IIP. 


Card  IIP  1-10  CPNT 


Code  indicating  how  the  most  outboard 
panel  edge  or  wing  tip  is  specified. 


Note  - This  card  controls  the  outboard 
panel  edge  and  in  no  way  influ- 
ences the  spanwise  edges  which 
are  established  by  the  geometry 
definition.  The  outboard 
panel  edge  is  usually  made 
coincident  with  the  defini- 
tion wing  tip , but  it  may  be  used 
to  truncate  the  defined  wing  tip 
and  the  spanwise  panel  edges 
anywhere  between  the  two  out- 
board wing  buttock  lines  speci- 
fied by  card  9P.  If  truncation 
is  specified,  the  wing  span 
and  area  are  reduced. 


= 0.  X and  Y coordinates  of  the  wing 
tip  leading  and  trailing  edge  are 
given.  Use  VALUE  (1)  through  (4). 
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I 


Card(s)  12P 


First  Card 


Column  Code  Explanation 

= 1 . X and  Y coordinates  of  the  leading 
edge  and  the  slope  (AX/AY)  of  the 
wing  tip  are  given.  Use  VALUE(l), 
(2)  and  (5). 

= 2 . X and  Y coordinates  of  the  trailing 
edge  and  the  slope  (AX/ AY)  of  the 
wing  tip  are  given.  Use  VALUE (3), 
(4)  and  (5). 


11-20 

VALUE  (1) 

X-coordinate  of  wing  tip  leading  edge  if 
CPNT  = 0.  or  1 . . 

21-30 

VALUE  (2) 

Y-coordinate  of  wing  tip  leading  edge  if 
CPNT  = 0.  or  1.. 

31-40 

VALUE  (3) 

X-coordinate  of  wing  tip  trailing  edge 
if  CPNT  = 0.  or  2. . 

41-50 

VALUE  (4) 

Y-coordinate  of  wing  tip  trailing  edge 
if  CPNT  = 0.  or  2. . 

51-60 

VALUE(5) 

Ax 

wing  tip  slope,  , if  CPNT  = 1 . or  2. 

Card(s)  12P  and  Card(s)  13P  give  the  SNUM  set  of  airfoil 
coordinates.  These  card  sets  (12P  and  13P)  are  always  used 
in  pairs  to  define  each  airfoil;  the  coordinates  apply  at  the 
centroid  buttock  line  of  eaeh  chordwise  row  of  wing  panels. 

The  inboard  row  is  read  in  first,  then  the  next  row  outboard, 
then  the  next,  etc.  out  to  and  including  the  tip  row. 

Chordwise  biquadratic  interpolation  is  used  between  input  points. 
Thus  it  is  recommended  that  XNUM  (1)  be  25. , or  nearly  25. ; 
input  points  should  be  concentrated  around  regions  of  rapidly  varying 
thickness  and/or  camber,  such  as  the  airfoil  leading  edge. 

The  card  sets  (12P  and  13P)  are  omitted  if  OPTF  = 0. 

1-10  XNUM(l)  Number  of  points  (X,  Z coordinate  pairs) 

in  upper  surface  airfoil  ordinate  table . 

4.  $ XNUM(l)  <c  25.. 
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Column  Code 


Explanation 


Second  Cards  1-10  XFOIL^  Upper  surface  airfoil  ordinate  table. 

Local  X and  Z coordinates  are  given  from 
11-20  ZFOIL-  leading  edge  to  trailing  edge . That  is, 

the  first  values  of  ZFOIL  and  XFOIL 
. . entered  are  always  zero.  If  the  wing 

. . has  no  twist,  an  unsealed  set  of  ordinates 

41-50  XFOILg  may  be  given  and  the  program  will  scale 

the  airfoil  to  the  local  chord.  The  section 
51-60  ZFOILg  has  no  twist,  if  and  only  if, 

ZFOILupper , trailing  edge  ~ (ZFOILiower  >T>E) 

Cards  13  P 

First  Card  1-10  XNUM(2)  Number  of  points  (X,  Z coordinate  pairs) 

in  lower  surface  airfoil  ordinate  table. 

4.  ^ XNUM(2)  $ 25.. 

Second  Cards  1-10  XFOILg  Lower  surface  airfoil  ordinate  table . To 

input  a completely  uncambered  section,  it 
11-20  ZFOIL  is  recommended  that  XNUM(l)  =XNUM(2)  and 

that  for  I such  that  1 . $ I ^ XNUM , 

XFOIL(I) , upper  = XFOIL(I),  lower  and  that 
ZFOIL(I),  upper  = - (ZFOIL(I),  lower) 

41-50  XFOILg 

51-60  ZFOILg 

etc.  ° 

Card  14 P 1-6  PANEND  Colums  1-6  contain  the  word  PANEND. 

This  card  ends  the  paneling  set  and  must 
be  used  whenever  any  paneling  is  performed. 

It  is  not  needed  for  a body-alone  problem. 


30 


All  aerodynamic  data,  except  title  cards  and  literal  statements,  are  punched 
in  seven-field,  ten-digit  format.  A decimal  point  is  required  in  each  data 
field.  Data  Cards  1A  and  2A  are  input  only  once  for  a given  configuration  and 
Mach  number.  The  remaining  aerodynamic  data  cards  may  be  repeated  as 
necessary  to  solve  the  selected  aerodynamic  cases. 

Column  Code  Explanation 

Card  1A  1-11  AERO-  Columns  1-11  contain  the  word  AERO- 

DYNAMIC DYNAMIC. 

Card  2A  Select  and  input  one  of  the  following  data  control  cards . 

1-7  COMPUTE  The  aerodynamic  matrices  and  geometry 

data  are  not  saved  on  tape;  this  card 
is  used  when  a defined  and  paneled 
configuration  is  input. 


1-9  SAVE  The  aerodynamic  matrices  and  geometry 

TAPE  data  are  saved  on  tape  for  repeated 

analysis.  The  body  and  wing  thickness 
and  camber  from  the  geometry  section  are 
also  saved  for  optional  use.  This  card 
is  used  when  a defined  and  paneled  con- 
figuration is  input. 


1-8  USE  A previously  saved  tape  is  to  be  used; 

TAPE  no  definition  nor  paneling  data  are 
input  when  this  option  is  selected. 

Card  3A  1-10  XMACH  Mach  number. 

11-20  SYM  = 0.  the  aerodynamic  problem  solved  is 

asymmetric  about  the  vertical  X-Z  plane 
(image  panels  not  included). 

= 1 . the  aerodynamic  problem  solved  is 
symmetric  about  the  vertical  X-Z  plane 
(image  panels  included). 
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Column 


Code 


Explanation 


Card  4A  1-72  TITLE  Any  desired  title. 

Card  5A  1-10  CASE  =1.  calculates  wing  twist  and  camber  for 

a given  A Cp  distribution  on  wing  where 

A C = C - C 

P P lower  P uPPer 

= 2.  calculates  pressure  distribution 
over  the  configuration.  Wing  and  body 
camber  can  be  changed  within  this  option. 

= 3.  optimizes  wing  twist  and  camber  for 
minimum  drag. 

Note  - For  body-alone  problems,  only 
case  = 2.  option  is  available. 

11-20  CPCALC  = 0.  Cp  calculations  use  linear  equation, 

Cp  = -2u. 

= 1.  C calculations  use  nonlinear 
equation, 

„ „ , o 2 2 2 2 

C = -2u+/9  u-v-w 
P 

= 2.  Cp  calculations  use  the  "exact" 
isentropic  equation  on  the  isolated  body 
and  the  linear  equation  on  the  wing  and 
body  panels.  The  "exact"  isentropic 
equation  is 


where  M is  the  mainstream  Mach  number, 
U is  the  mainstream  velocity  and?  (1.4) 
is  the  coefficient  of  specific  heats. 

21-30  POLAR  = 0.  drag  polar  not  requested. 

= N.  drag  polar  requested.  A series 
of  N incremental  angles  of  attack  is 
specified  on  Card(s)  15A. 

31-40  THICK  = 0.  wing  thickness  pressures  are  not 

calculated. 

= 1.  wingthickness  pressures  are  calculated. 
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Column 

41-50 


Card  6A  1-10 


11-20 

21-30 

31-40 


41-50 


Code  Explanation 

VOUT  = 0.  the  velocity  components  are  not 

printed. 


= 1.  the  velocity  components  are  printed. 

RFAREA  Half-wing  reference  area.  If  this  field 
is  left  blank,  the  program  sums  the  wing 
panel  areas  to  obtain  the  reference  area 
which  is  the  half-wing  exposed  area. 

For  the  body-alone  problem,  a value 
must  be  input,  or  a unit  area  is  used. 

XP  x-coordinate  about  which  the  pitching 

moments  are  computed. 

ZP  z-coordinate  about  which  the  pitching 

moments  are  computed. 

CBAR  =0.  Unit  (1.)  reference  chord  length 

to  be  used  in  pitching- moment  calcula- 
tions. 

= CBAR,  Reference  chord  length  of 
CBAR  to  be  used. 


SEMIS  = 0.  Unit  (1.)  wing  semispan  to  be  used 

in  spanwise  C^»  Cp>  calculations. 

= SEMIS,  Wing  semispan  of  SEMIS  to 
be  used. 


Card  7A  For  configurations  that  include  a body,  the  body  angle  of  attack 
is  specified  on  this  card. 

1-10  ARB  Body  angle  of  attack  in  degrees. 

Card  8A  For  configurations  that  include  a body,  two  options  are  available 
for  specifying  the  body  radii.  The  first  word  on  the  first  card 
indicates  the  type  of  input.  Omit  this  card  set  for  wing-alone 
problems . 


1-5  Option  A 

= "GIVEN."  The  body  radii  to  be  used  are 
those  calculated  in  the  geometry  defini- 
tion section.  No  additional  cards  are 
needed. 

1-72  Option  B 

= Identifying  title.  Any  title  calls  the 
option  of  inputting  body  radii  directly. 

The  radii  from  the  geometry  section 
are  superseded. 
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Column 


Code 


Explanation 


Card(s)  8AA 


Card  9A 


Card(s)  9AA 


Card  10A 


(used  only  with  Option  B) 


1-10 

R1 

The  body  radii  are  input  on  these  cards. 

11-20 

R2 

They  are  input  from  nose  to  tail  and 

• 

• 

apply  at  the  source  control  stations 

• 

• 

• 

• 

generated  by  the  paneling  section.  There 

61-70 

R„ 

are  XNRX  radii  required  (Card  2P, 

etc. 

7 

columns  1-10). 

For  configurations  that  include  a body,  two  options  are  available 
for  specifying  body  camber.  The  first  word  on  the  first  card  is 
the  key  to  the  type  of  input  the  program  expects.  Omit  this  card 
set  for  wing- alone  problems. 


1-5 

GIVEN 

7-80 

Any  addi- 
tional 
identifying 
symbols 

1-80 

Any 

identifying 

symbols 

Option  A 

Columns  1-5  contain  the  word  GIVEN. 
The  program  takes  the  body  camber  as 
that  calculated  in  the  geometry  definition 
section.  No  additional  cards  are  neces- 
sary for  this  option. 

Option  B 

The  first  card  contains  any  arbitrary 
identifying  symbols  (other  than  GIVEN 
or  CONSTANT  as  the  first  word)  to 
describe  the  body  camber.  The  program 
expects  more  cards  immediately  to 
specify  the  body  camber. 


(used  only  with  Option  B) 


1-10  zT 

11-21  Z2 


61-70  Z 
etc.  1 


The  body  camber  is  input  on  these  cards 
as  Z-heights  of  body  cross  sections  at 
the  source  control  stations.  The  values 
are  input  from  nose  to  tail;  there  are 
XNRX  values  required  (Card  2P,  columns 
1-10). 


Calculates  wing  twist  and  camber  for  a given  wing  A r distri- 
bution (CASE  = 1. , field  1 of  Card  5A).  Two  options  are  Available 
for  specifying  the  A C distribution.  These  options  are  selected 
by  the  first  word  on  the  first  card  of  this  set.  Omit  this  set  for 
body- alone  problems  or  CASE  = 2.  or  3. 


1-8 

9-80 


CONSTANT 

Any  addi- 
tional 
identifying 
symbols 


Option  A 

Columns  1-8  contain  the  word  CONSTANT. 
This  option  restricts  the  wing  to  have  a 
constant  A Cp  distribution.  This  constant 
value  is  specified  on  the  following  card. 
Recall  that  A Cp  - Cp  jQwer  Uppgr 
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Column 


Code 


Explanation 


1-80 


Any  Option  B 

identifying  The  first  card  contains  appropriate 
symbols  identifying  symbols  (other  than  GIVEN  or 

CONSTANT  as  the  first  word)  to  select 
Option  B.  A Cp  for  each  panel  is  speci- 
fied on  the  following  card  set. 


Card  10AA  (used  only  with  Option  A) 


1-10  A Cp  A Cp  for  Option  A. 


Card(s)  10AB  (used  only  with  Option  B) 

1-10  A Cpi  A Cp's  for  Option  B.  This  array  must 

. . be  ordered  starting  with  the  inboard 

. . panel  at  the  leading  edge  and  running  aft 

. to  the  trailing  edge,  then  proceeding 

. . outboard  to  the  tip  in  the  same  manner. 

61-70  A Cp^  There  must  be  the  same  number  of 

etc.  values  as  there  are  wing  panels. 

Values  apply  at  panel  centroids. 


Card  11A  For  configurations  that  include  a wing  and  for  which  CASE  (Card 
5A)  = 2,  the  wing  angle  of  attack  and  an  optional  twist  distribution 
are  indicated  on  these  cards. 

1-10  ARW  Wing  angle  of  attack  in  degrees 

(relative  to  body  axis  if  wing- 
body  configuration) 


11-20  TWIST  =0.  No  twist  distribution  to  be  given. 

= 1.  Twist  distribution  to  be  specified 

on  following  cards. 

Card(s)  11AA  (used  only  if  TWIST  = 1.) 

1-10  ARWT1 

11-20  ARWTg 

. . Twist  angle  for  successive  wing  panel 

. . columns;  ARWT^  applies  to  the  inboard- 

61-70  ARWT7  most  column, 

etc. 

Note  - Card  11AA  is  repeated  until  angle  for  each  column  of 
wing  panels  is  given.  Do  not  use  Card  11AA  if  TWIST 
(Card  11A)  = 0. 


Card  12A  Calculates  the  pressure  distribution  over  the  configuration  (CASE 

= 2., field  1 of  Card  5A).  Three  options  are  available  for  specifying 
the  camber  shape  of  the  wing.  The  options  are  selected  by  the 
first  word  on  the  first  card  of  this  set.  Omit  this  set  for  body- 
alone  problems  or  CASE  = 1.  or  3. 
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Column 

Code 

1-8 

CONSTANT 

9-80 

Any  other 

identifying 

symbols 

1-5 

GIVEN 

7-80 

Any  other 

identifying 

symbols 

1-80 

Any 

identifying 

symbols 

Card  12AA  (used  only  with  Option  A) 
1-10  ALPHAC 


Explanation 

Option  A 

Columns  1-8  contain  the  word  CONSTANT. 
This  option  restricts  the  wing  camber 
shape  to  have  a constant  slope  for  each 
wing  panel.  This  constant  value  is 
specified  on  the  following  card. 

Option  B 

The  wing  camber  shape  is  specified  by 
the  input  geometry.  The  panel  slopes 
used  are  those  generated  in  the  paneling 
section  of  the  program.  In  this  case, 
no  more  cards  are  needed. 

Option  C 

Appropriate  identifying  symbols  (other 
than  GIVEN  or  CONSTANT  as  the  first 
word)  on  the  first  card  of  this  set  are 
used  to  select  this  option.  The  wing 
camber  shape  is  specified  by  a slope 
for  each  panel.  Other  cards  must  be 
input  which  contain  the  slope  values. 


The  constant  wing  panel  Az/Ax  slope  for 
Option  A. 


There  is  no  auxiliary  card  for  Option  B. 


Card(s)  12AC  (used  only  with  Option  C) 


1-10 


61-70 

etc. 


ALPHA Ci  Wing  panel  Az/Ax  slopes  for  Option  C. 

. The  array  must  be  ordered  starting  with 

. the  inboard  panel  at  the  leading  edge  and 

. running  aft  to  the  trailing  edge,  then 

ALPHAC7  proceeding  outboard  to  the  tip  in  the  same 
manner.  There  must  be  the  same  num- 
ber of  values  as  there  are  wing  panels. 
Values  apply  to  panel  control  points. 


Card  13 A Optimizes  wing  twist  and  camber  for  minimum  drag  (CASE  = 3. , 
field  1 of  Card  5A).  Two  options  are  available.  The  first  option 
optimizes  the  wing  for  a given  wing-lift  constraint,  and  the 
second  option  optimizes  the  wing  for  both  the  wing-lift  and  center- 
of- pressure  constraints.  Only  one  data  card  is  required.  Omit 
this  card  for  a body-alone  problem  or  CASE  = 1.  or  2. 

1-10  CONSNT  = 0.  the  wing  is  optimized  for  minimum 

drag  with  a wing-lift  constraint. 
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Column 


Code 


Explanation 


= 1.  the  wing  is  optimized  for  minimum 
drag  with  both  wing-lift  constraint  and 
x- coordinate  of  the  center-of- pres  sure 
constraint. 

11-20  CLBAR  Wing-lift-coefficient  constraint. 

21-30  XCPBAR  The  x-coordinate  of  the  wing  center-of- 

pressure  constraint.  If  the  center  of 
pressure  is  not  constrained,  omit  this 
field. 

Card  14 A For  configurations  that  include  a wing  and  for  which  THICK 

(Card  5A)  = 1. , two  options  are  available  for  specifying  the  wing 
thickness  distribution.  The  first  word  on  the  first  card  indicates 
the  type  of  input.  Omit  this  card  and  card(s)  14AB  if  thick- 
ness effects  are  not  requested  (THICK  =0). 

Option  A 

1-5  = "GIVEN."  The  wing  thickness  distribu- 

tion to  be  used  is  that  computed  in  the 
geometry  paneling  section.  No  more 
cards  are  needed. 

Option  B 

1-72  = Identifying  title.  The  wing  thickness 

distribution  is  input  on  the  following  cards. 


Card(s)  14AB  (use  only  with  Option  B) 


1-10 

11-20 

21-30 


61-70 


Card(s)  15A  1-10 


ALPHAT1 

alphatJ 

ALPHATg 


ALPHAT? 


Wing  thickness  Az/Ax  slopes.  For  the  pur- 
pose of  these  cards,  wing  thickness  is  the 
distance  from  the  airfoil  camber  line  to 
either  airfoil  surface.  A leading- edge 
thickness  slope  (less  than  the  tangent  of 
the  Mach  angle)  is  given  for  the  inboard 
wing- panel  column  and  followed  by  thick- 
ness slopes  for  each  panel  in  that  column 
of  the  wing  panels.  This  is  repeated  for 
each  wing-panel  column.  The  total 
number  of  input  wing-thickness  slopes 
equals  the  number  of  wing  panels  plus 
the  number  of  panel  columns. 


DADEG  If  drag  polar  is  requested  (POLAR  = N.  on 
Card  5A),  incremental  angles  of  attack 
(in  degrees)  are  specified  on  Card(s)  15A. 
A terminating  blank  card  is  used.  Omit 
this  card  set  if  Polar  option  is  not 
selected  (POLAR  = 0.). 
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FLOW  VISUALIZATION  CARD  SET 


All  flow  visualization  data,  except  title  cards  and  literal  statements,  are 
punched  in  seven-field,  ten-digit  format.  A decimal  point  is  required  in  each 
data  field.  This  card  set  instruction  applies  to  any  type  of  configuration  and 
any  type  of  aerodynamic  analysis.  Only  the  last  angle  of  attack  of  the  last 
aerodynamic  analysis  is  visualized. 

Column  Code  Explanation 

Card  IF  1-8  FLOW  VIZ  Columns  1-8  contain  the  word  FLOW  VIZ. 

This  card  calls  the  Flow  Visualization 
section  of  the  program. 

Card  2F  1-10  CPCALC  = 0.  The  linear  Cp  equation  is  used  to 

calculate  field  pressure  points. 

= 1.  The  nonlinear  Cp  equation  is  used. 

= 2.  The  "exact"  isentropic  equation  is 
used. 

The  Cp  equations  are  defined  for  Card  5 A 
of  the  aerodynamic  set. 

11-20  CAMN  = 1.  Visualization  calculation  of  only  the 

thickness  effects  of  the  wing  and/or  body. 
No  camber,  twist,  angle-of- attack,  or 
interference  effects  are  computed.  If 
lifting  effects  are  not  of  interest,  selecting 
this  option  will  save  computer  time. 

= 0.  Visualization  calculation  takes 
account  of  all  effects  included  in  the  analy- 
sis. 

11-21  POP  =0.  No  special  print  option. 

/ 0.  Prints  velocity  components  due  to 
various  singularities. 

NOTE:  The  three  modes  of  flow  visualization  (grids,  streamlines, 
and  points)  may  be  called  in  any  order  and  any  number  of 
times  by  inputting  the  appropriate  literal  card. 

Card  3F  1-5  GRIDS  Columns  1-5  contain  the  word  GRIDS. 

This  card  calls  the  grid  mode  of  flow 
visualization. 

Card  3FA  1-10  XNG  The  number  of  two-dimensional  or  three- 

dimensional  grid  structures;  any  number 
may  be  requested. 
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Column 


Code 


Explanation 


Card(s)  16A  1-72 


(blank)  (This  is  a blank  card. ) To  conduct  an 

additional  aerodynamic  analysis,  begin 
the  new  set  of  aerodynamic  data  with 
Card  4A.  To  terminate  the  data  of  the 
last  analysis  or  to  call  the  flow  visualiza- 
tion section,  place  two  Card(s)  16A  after 
the  terminating  polar  card. 
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Column 

Code 

Explanation 

Card  3FB  1-10 

XO  ) 

i The  rectangular  coordinates 

11-20 

YO 

? of  the  origin  of  the  grid 

21-30 

ZO  | 

1 structure. 

31-40 

XA  ] 

1 The  rectangular  coordinates  of  a 

41-50 

YA 

? point  which,  together  with  the  origin 

51-60 

ZA  ] 

1 (above),  defines  an  axis  of  a skew 

grid;  the  positive  direction  is  from 
the  origin  to  point  A. 

Enter  values  only  if  a skew  grid  is 
called;  AMD  (Card  3FC)  = 4. 

61 

LIT 

= X Select  and  input  the  letter  of  the 
= Y coordinate  axis  which  is  used  to- 
= Z gether  with  the  skew  axis  defined 
above  to  define  the  two-dimensional 
skew  grid. 

Enter  a letter  only  if  AMD  = 4 . 

Card  3FC  1-10 

DX  ] 

! Values  of  increments  which  position 

11-20 

DY 

> points  on  the  grid.  If  a two-dimen- 

21-30 

DZ  ) 

' sional  grid  is  desired,  set  one  of 

the  increments  to  zero  and  the 
corresponding  increment  count 
(next  three  fields)  to  1. 

31-40 

XN 

| The  respective  number  of  incre- 

41-50 

YN 

> ments  vrtiich  position  points  on  the 

51-60 

ZN  ] 

1 grid . 

If  AMD  = 1. , YN  X ZN  $ 500. 
If  AMD  = 2. , XN  x ZN  $ 500. 
If  AMD  = 3. , XN  x ZN  $ 500. 

61-70 

AMD 

This  code  controls  the  format  in  which 
the  data  is  output. 

= 1.  Data  is  output  for  all  the  (Y,  Z) 
points  at  a given  X- value ; then  the  data 
for  the  next  X- value,  etc.  Always 
select  this  code  value  when  DX  = 0. 

= 2.  Data  is  output  for  all  the  (X,  Z) 
points  at  a given  Y- value;  then  the  data 
for  the  next  Y- value,  etc.  Always 
select  this  code  value  when  DY  = 0. 


40 


Column  Code  Explanation 

= 3.  Data  is  output  for  all  the  (X,  Y) 
points  at  a given  Z- value;  then  the  data 
for  the  next  Z-value,  etc.  Always 
select  this  code  value  when  DZ  = 0. 

= 4.  A skew  grid  has  been  specified  for 
the  plane  defined  by  LIT-axis  and  the 
line  from  the  origin  through  point  A.  The 
following  notes  apply. 

Notes — 1.  Increments  and  the  number  of  increments  determining 
points  on  a skew  grid  are  input  in  the  following  way: 
The  axis  specified  by  LIT  is  input  as  if  for  a rec- 
tangular array.  One  of  the  other  two  axes  is  input 
with  zero  (0.)  increment  size  and  number.  The 
remaining  axis  is  input  as  if  for  a rectangular 
array  also,  but  its  graduations  apply  to  the  skew 
axis;  planes  are  established  normal  to  the  remaining 
axis  through  each  of  its  graduations.  Where  these 
planes  intersect  the  skew  axis,  a skew-axis  gradua- 
tion is  established. 

2.  Repeat  Card  3FB  and  Card  3FC  for  each  grid  called. 
That  is,  there  must  be  KNG  sets  of  Cards  3FB-3FC. 

Card  4F  1-11  STREAMLINES  This  word  appears  in  columns  1-11  and 

calls  the  streamlines  option. 

Card  4FA  1-10  DXMAX  The  maximum  permissible  step  size  for 

the  streamline's  integrator.  A value  of 
10.  X XDELT  is  recommended. 

11-20  DXMIN  The  minimum  permissible  step  size  for 

the  streamline's  integrator.  DXMIN 
> 0. , always.  A value  of  0. 1 x XDELT 
is  recommended. 

21-30  PRINT  The  result  is  a series  of  points  in  rec- 

tangular coordinates  (X,  Y,Z)  from  XMIN 
through  point  S to  XMAX.  The  values 
of  X are  determined  by  this  code.  (See 
Card  4FC.) 

= 0.  Points  are  printed  out  in  even 
increments  of  XDELT. 

= 1.  Points  are  generated  by  the  inte- 
grator and  are  printed  out  directly. 
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Column  Code  Explanation 

Note — If  printout  with  PRINT  = 1.  shows  that  DXMIN  is  reached 
as  an  actual  interval  in  printing  out  the  results,  the 
streamline  may  not  be  accurate.  To  ensure  accuracy, 
reduce  DXMIN  and  XDELT  and  repeat  the  calculation. 


Card  4FB  1-10  XNS 


The  number  of  streamlines  to  be 
specified;  any  number  maybe  requested. 


Card(s)  4FC  1-10  XS 
11-20  YS 
21-30  ZS 


31-40  XMIN 
41-50  XMAX 


51-60  XDELT 


Card  5F  1-6  POINTS 


The  streamlines'  starting  point. 

The  streamline  begins  on  the  XMIN 
plane,  proceeds  downstream,  passes 
through  point  S,  and  continues  to 
the  XMAX  plane. 

The  farthest  point  upstream  and 
downstream  to  which  the  streamline 
will  be  calculated.  The  relationship 
XMIN  4 XS  ^ XMAX  must  be  observed. 

The  initial  step  size  for  the  streamline's 
integration.  For  configurations  that 
include  a wing,  a value  of  0. 1 x (mean 
chord  length)  is  recommended.  For 
body-alone  analyses,  a value  of  0. 1 x 
(body  length)  is  recommended.  For 
streamlines  passing  very  near  the 
configuration,  a smaller  value  should 
be  used.  DXMAX  > XDELT  > DXMIN, # 
always. 

There  must  be  exactly  XNS  number  of 
Card(s)  4FC. 

Columns  1-6  contain  the  word  POINTS. 
This  card  calls  the  points  mode  of  the 
flow  visualization. 


Card  5FA 

1-10 

XP 

The  number  of  points  requested;  any 
number  may  be  requested. 

Card(s)  5FB 

1-10 

XF 

) Rectangular  coordinates  of  point; 

11-20 

YF 

> there  must  be  XP  number  of 

21-30 

ZF 

) Card(s)  5FB. 
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Column  Code  Explanation 

Card  6F  1-8  VIZEND  Columns  1-6  contain  the  word  VIZEND. 

This  card  terminates  the  Flow  Visualiza- 
tion section.  The  flow  visualization 
calculations  may  be  continued  after  the 
above  data  has  been  calculated  and  this 
card  has  been  entered,  by  inputting  Card 
IF  again  and  continuing  the  data. 

Terminal  Card  1-11  END  OF  DATA  If  no  further  analysis  is  required, 

the  run  is  terminated  by  an  END  OF 
DATA  card. 
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3.  4 Sample  Input  and  Output  Data 

SEVEN  FIELD,  TEN  DIGIT  CRD  FORMAT 


' 10  jll  » 

?1  X j 31  M 

41  » 

51  «0 

41  **!70 

71 

n 

. Of  NT  SO 
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- 40.  - . 

. 5D 
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? 
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„ 
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■ 
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■ 
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Sample  Data  Printout 


The  computer  output  for  a sample  case  is  given  on  the  following  pages: 

Data  card  listing  48 

Geometry  Definition  50 

Body  definition 
Wing  definition 

Intersection  gg 

Geometry  Transformation  gg 

Transformed  body  description  69 

Transformed  wing  description  73 

Transformed  intersection  75 

Body  section  radius  and  centroid  coordinate  vs  x- array  76 

Geometry  Paneling  77 

Body  paneling  data  77 

Additional  body  geometry  data  30 

Wing  paneling  data  32 

Additional  wing  geometry  data  85 

Aerodynamics  37 

Flow  Visualization  105 
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0.9364  102.1900  0.9153  -0.1977 
0.9364  130.0000  0.7173  -0.6019 
0.9364  155.0000  0.3957  -0.8487 
0.9364  180.0000  0.0000  -0.9364 
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840  155.0000  0.5004  -1.0731 

840  180.0000  0.0000  -1.1840 
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940  102.1900  1.1573  -0.2500 
940  130.0000  0.9070  -0.7611 
040  155.0000  0.5004  -1.0731 
940  160.0000  0.0000  -1.1040 
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7A0  155.0000  0.A96Z  -1.06AO 

TAO  180.0000  0.0000  -1.17A0 


TR-805/EOUIVAI ENT /BAP Y 


O0'®h-r-®0'0 
4tf\.-*«om~.if\4 
m44(T444»r 
-Or-rgrgr-O  — 


OMnff'niTKO 
4«croor-rg®4 
<n  — ru  <*  r\  eg  ry 

~OK<Nj<Nh-C  — 


O 

fsi 


~~0©00~«.-. 

I I I I 


v»  o 
o 
o 
o 


o 

» 


or-or-oof- 
O 4 4 CO  4 f- 
o t Oj  « N ® © 
O 4 00  — * «*<  00  4 
>••••«•• 
O © O — -g  O O 


o 

o 

o 

o 

• 

o 


rst  O 

o 

o 


o 

© 


0 

1 


^-.oooo^^ 

till 


ooor-r-oo© 

OkT>— ■IT'®— 

ON  ©«  <r  ©k  C 
04«o©0«>40 
>■  ........ 

OOO-.  — COO 


• — 
fy  O 
O 

o 

R O 

© 
m I 
© 

O 

u - 
irt  o 
© 
o 
o 


o + moo'cu  + o 
■+tMoOm+,CM  + 
©©aer^a©© 
00,®NM*^0 

•"•OOOOOOi—  • •*■» 

till  fy  O 

o 
o 
« o 

©—■4-«®4.~o  o 
o®Of^oo®o  mi 
oif'W^K\f»uro  © 
©4*©o«>4©  o 
>■••..  ....  o» 

©oo^-^oo©  V>  © 
o 
o 
o 
* 

o 


© P-  >c 

4 h-  4 
I*  fn  <6 
© © *0 
N * i • 

— o o 


o o — 

OKN 

© #n  O' 

© 4 r- 


o l 
o » 
O < 


©ooooooo 

oooo©©©© 

40000^00© 
►-©COO-COO 
m ........ 

ZOtrOtriyOiro 

►-  n tr  r-  o (*>  tr  *. 


- S' 


oooooooo 

44444444 


vi  z 
►- 
>■  i 

ss 


Z^MfO<IA><lh-© 

4 

o 


>■ 

o 

o 

o 

o 

© 

o 

e> 

o 

► 

o 

o 

o 

O 

O 

© 

© 

© 

V 

o 

© 

O 

© 

o 

o 

o 

© 

© 

© 

© 

o 

o 

o 

© 

o 

o 

O 

© 

Q 

O 

o 

4 

o 

o 

o 

o 

O' 

© 

o 

© 

4 

o 

o 

o 

© 

© 

o 

o 

O 

4 © 

o 

o 

►- 

K 

o 

c 

o 

o 

c 

o 

o 

K 

H 

o 

o 

© 

© 

c 

o 

o 

♦- 

1-  o 

o 

c 

4 

UJ 

• 

• 

4 

UJ 

• 

ft 

• 

• 

ft 

4 

UJ 

• 

ft 

X 

o 

IT 

o 

JTi 

rg 

o 

tr 

G 

X 

o 

ir 

o 

irv 

rg 

o 

jr 

o 

I o 

i r 

o 

o o 

►— 

JO 

f- 

O 

m 

irv 

DC 

o 

O 

r- 

rj 

IT 

r- 

O 

fr> 

U' 

© 

o 

©. 

h- 

ru 

IT 

© LU 

© 

UJ 

#* 

o 

UJ 

© 1- 

o 

*- 

o 

►— 

© 4 

© 

4 

© 

4 

• 

o 

ft 

o 

#r  5 

o 

o 

o 

o 

o 

© 

© 

o 

4 

o 

o 

O 

o 

© 

o 

© 

© 

o 

o 

O 

O 

© 

n -i 

4 

4 

4 

4 

4 

4 

4- 

4 

cr 

-J 

4 

4 

4 

4 

4 

4 

4 

4 

r. 

-J 

4 

4 

4 

n 

rg 

rg 

rg 

rg 

M 

© 

cc 

® 

<r> 

CO 

© 

© 

«■> 

rr 

X 

rr 

w 

O 

•M 

kfl 

£ 

© 

© 

o 

O 

o 

o 

© 

o 

uo 

O 

O 

O 

O 

T 

f 

i 

• 

• 

• 

• 

ft 

• 

• 

X 

ft 

t 

R 

at 

ft* 

p* 

R 

at 

** 

ft* 

#x4 

M 

R 

ft* 

«p4 

Z 

z 

z 

X — 

X 

X 

o 

o 

© 

Z ff 

. 

? 

a 

. 

z 

at 

. 

o o 

O 

O 

o 

a 

Q 

O 

o 

z 

z 

z 

*-  4 

J- 

4 

►- 

4 

4 r- 

z 

^4 

4 if* 

'C 

r- 

CP 

4 

»- 

z 

#»•* 

rv 

rr  4 

IT 

I- 

K 

4 

r* 

z 

1X4 

fV» 

r. 

££ 

4 

h- 

VJ 

UJ 

X 

4 

K* 

* 

4 

►- 

o 

1- 

a 

>- 

o 

V I 

V 

1 

V 

i 

© O 

a. 

o 

O 

a 

a 

Q 

m. 

a x 

m 

o 

X 

UJ 

o 

X 

UJ 

«t  B. 

r 

© 

a 

X 

CO 

oc 

z 

55 


0360  75.0000  0.9988  0.2676 
0360  102.1900  1.0107  -0.2183 
0360  130,0000  0.7921  -0.6666 
0360  155.0000  0.6370  -0.9371 
0360  180.0000  0.0000  -1.0360 
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WING  PERCENT  CHORO  LINE  2,  10.0000  PFRCENT 
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I FT  *86  A POINT  WHICH  UES  ON  THE  BODY  SURFACE 

ANO  0 A POINT  ON  A LINE  SEGMENT  CONNECTING  TWO  ADJACENT 
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MV  20,  1967 

PROGRAM  ENTERED  LINK  TO  TRANSFORM  BODY  AND/OP  WING  BFFOPE  PANELLING 


©ooooooooooooooooooooooo 

oooooooooooooooooooooooo 

oooooooooooooooooooooooo 

oooooooooooooooooooooooo 

oooooooooooooooooooooooo 


oo<#^^o^^>o^ooqooooooooooo 

or--4-a'rsir^pr>(MO'«r®®®«>®flDOD«Dr^*r»f\t«3^o 

Orvj'#if>K 

O o O O O O O H J J J H J ^ H « H J H J 


OOOOOOOOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOO  oo 
DiroirOifiOiroK'O-i/'OiAO^ff'Oooo  oo 

O «~|  rn  i,  ^ P'  o N m ,<  IT.  ^ o N «\  N o r-  M«i  4 %T-  ■*> 


oooooooooooooooooooooooo 

oooooooooooooooooooooooo 

oooooooooooooooooooooooo 

Ou’\o*-ow'C»r>ow-'C_iroi^oraoococo 

O — ^ -O  r-  CT  OrvJfr'W'krr^Cr\;tr^a  m Mr,  ^ « 


2 O »XJ 

*■  • tU  * 

o *>  > ► 


68 


(WJiSAS  $1 X V-G3KI tid ) AGQ9  QakttUdSNVdA 


oooooooooooooooooooooooo 
oooooooooooooooooooooooo 
oooooooooooooooooooooooo© 
h-000000000000000000000000 


ioooooooooooooooooooooooo 


oooooooooooooooooooooooo 

oooooooooooooooooooooooo 

^oooooooooooooooooooooooo 

►-oooooooooooooooooooooooo 

t-  rmiMfvirurgrur^fsjrvj(Ntrwrg(Ntf«4«^<M(^(^rs404(Sji\trsj 


00«4-m^0’4-m*c0'00000000000000 

Of-  -4-  cr  rw  m m rw  a ^•®cooo®®®«Door-  »r\  ng  <c  fr,  © 
G O -f  Ifl  f"  ®ff>00  — 

KOOOCOOOhhmmnh'hJJJJh^nmhJ 


00*f^*0'4-f*><00'0000000©00000© 

0 1^4  ry04-®cc«ea)®®««r*4Mvj«mo 


oo<i^«rO'4-<^^)^oooooooooooooo 

gf-  ca,Nir,  nco^o 


o o o o o o o - 


o -4*  -f®ir®®-4.— < O m m ir.  «r>#nmm^w\a>(vrw4) 

0-4  Q r>  > tr<  trt  ^ tvi  o 

o 4-  s od  o-c  oocoooooooooo-o  a 

OOOOOOOOO,-,-.^^^^**  — ~ O O O 


£22£5Scoooooocoooooooooo 

£S2OOOOOOCOO°00000000000 

S2222Soocooooo°ooooooooo 

OOOOOOOOOOOOOOOOOOOOOOOO 



OOCOOOOOOOOOOOOOOOOOOOOO 

1 1 1 * III  » I I I I I I I I I I I I I I I 


O h f-  n f"  ("■  r-Orvj.->'4>*'r**4'<+*rsjh.o«M043 
04«'HiA(nirNMr00000000  4MMif*N 
0<-<®tr0tra'f<'^®00000©00«7,®Ktrtf^fVi 
o « h M<I  f , 4-4<4u.  mW'tf\MMnrur4^44'4<4 

OCOOCCOOOOOOOOOOOOOOOOOO 


*±  CCOOOCOOOOOOOOOCOOOCOOOO 

* S?S?£CoCjCcooocooooo°cooc 

, ooocooooc°oocooooooococo 

-J^o^OirOwroir  o»tio  — iroiro^aoooooo 

ac  o^^-T'Cf-tfONir, 


u coococooooooooooeooooooo 
x oooooooooooooooooooooooo 
— oooooooocoooooooooooooco 

_J  OiTOirOiTCirO^O-iAOlf'OifO'OOOOOe 


O — fvj  ( 

o 


69 


TRANSFORMED  BODY  (PRINED-AX  IS  SYSTFM 
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MAY  20,  1967 

INTER  SECTIONS  OF  FLAT  WING  PERCENT  CHORD  LINES  WITH  BODY  SURFACE 
tHO-THETA  ORIGIN  IS  LOCATEO  AT  (y,Z)  * ( 0.0000,  0.00001 
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NAY  20 f 1967 

SOOY  RADIUS  AND  /-COORDINATE  OP  BODY  CENTROID  VERSUS  X-P°IME 
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BODY  PANEL  ROUTINE 

THERE  APE  15  transverse  vertical  planes  that  intersect  The  BODY 

TO  DEFINE  PANEL  LEADING  ANO  TRAILING  EDGES 
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BODY  PANEL  CORNER  POINT  COORDINATES 

1 AND  2 INDICATE  BODY  PANEL  LEADING-EDGE  POINTS,  * 4N0  4 INOICATE  TRAIL ING-6DGE  POINTS 
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BODY  PAN EL  CENTROID  AND  CONTROL  POINT  COORDINATES 
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WING  PANEL  POUTINF 
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WING  PANEL  COPNFR  POINT  COORDINATES 

l AND  2 INDICATE  WING  PANEL  LEADING-EDGE  POINTS,  3 AND  4 INOICATE  TRAIL ING-EDGE  POINTS 
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CHOKCWISE  STATION 
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VELOCITY  COMPONENTS  ON  WING  PANELS  DUE  TO  BODY  LINE  SOURCES  AND  DOUBLETS 
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ACTUAL  JOINTS  DETERMINED  Pv  INTEGRATOR 
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4.  PROGRAM  RECORDS 
4.1  Flowcharts 

A program  flow  chart,  supplemented  by  flow  charts  of  each  of  the  five  main 
program  sections,  and  a program  overlay  structure  diagram  are  presented  in 
this  section. 
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«**WBX>* 
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GEOMETRY  DEFINITION  SECTION 
FLOW  CHART 
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GEOMETRY  TRANSFORMATION  SECTION 
FLOWCHART 


ENTRY 
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GEOMETRY  PANELING  SECTION 
FLOWCHART 
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KARMOR  DERIV2 

SCAMP4  DERIVS 
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FLOW  VISUALIZATION  SECTION 
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PROGRAM  OVERLAY  STRUCTURE 


LINK  1 


LINK  2 


LINK  0 


FASNCS 

FTAN 

FATN1 

OPCAM 

FDATE 

INTURP 

FFSF 

CLOK 

ORIGIN  A 


NKS  I 
i-37  L 


LINKS 
20 

DEFINITION  AND 
TRANSFORMATION 
SECTION 
ORIGIN  GPI 


AERO 
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(SEE  PAGE  123  FOR 
PANELING  LINK  SECTION) 
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PROGRAM  OVERLAY  STRUCTURE  {CONT) 


FLOW  VISUALIZATION  SECTION 
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4.2  Subroutine  Descriptions 

The  subroutines  listed  alphabetically  in  the  accompanying  index  (with  the 
exceptions  noted)  are  disoussed  in  this  section. 

Subroutine  Index 


Subroutine 

Subroutine 

Page. 

ACOS 

130 

CHECK 

177 

AERO 

181 

CHORDW 

179 

ALLIN 

133 

CLEAR 

(See  Appendix  A) 

ALPHAB 

135 

CLOK 

181 

AMATE 

137 

CNTRLB 

182 

AHEAP 

139 

CNTRLW 

185 

AH  FREE 

(See  Appendix  A) 

COEFS 

187 

ARFUL 

(See  Appendix  A) 

COMCU 

190 

ARSECR 

(See  Appendix  A) 

COMP 

193 

ASIN 

141 

CP 

194 

ATN1 

142 

CRNRB 

196 

BCAM 

143 

CRNRW 

201 

BCUTX 

145 

CUBIC2 

205 

BITURP 

146 

CVEL 

206 

BJTURP 

148 

DATE 

208 

BLDM 

149 

DCPD 

209 

BLUNDR 

151 

DCPI 

210 

BODCR 

152 

DED 

(See  Appendix  C) 

BODY 

154 

DEDIS 

(See  Appendix  C) 

BODY1 

157 

DEFEN1 

212 

BODY1M 

160 

DEFEND 

213 

BODY1R 

161 

DEI 

(See  Appendix  C) 

BODY1S 

163 

DERIV1 

215 

BSCALE 

165 

DERIV2 

216 

BTHECK 

166 

DERIVS 

217 

CAMBER 

168 

DES 

(See  Appendix  C) 

CAMBW 

170 

DISPTA 

218 

CAMBWB 

171 

DMAXL 

219 

CEGAR 

173 

ELLIPR 

220 

CENTRD 

174 

ENRYCH 

221 
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Subroutine 

Pane 

Subroutine 

Page 

EVAL 

223 

LACKEY 

277 

EVA  LI 

226 

LENG 

(See  Appendix  A) 

FASNCS 

228 

LOC 

281 

FCALC 

229 

MDMATE 

282 

FDATE 

233 

MEAN 

285 

FFSF 

234 

MERR 

286 

FFSH 

235 

NWEED 

287 

FLOOUT 

237 

OPCAM 

288 

FLOVIZ 

239 

OPCAMI 

290 

FORCES 

241 

OPTIM3 

292 

FROOTA 

244 

OPT  MW 

294 

FSF 

246 

OPTMWB 

296 

FSR 

247 

OUTB 

298 

FT  AN 

248 

OUTPTB 

300 

GEOMD 

249 

OUTPTW 

302 

GRIDS 

251 

OUTW 

304 

LAD ARY 

(See  Appendix  A) 

PANEL 

305 

IBFR 

(See  Appendix  A) 

PARTV 

308 

IDLETE 

(See  Appendix  A) 

POLXN 

310 

INIBFR 

(See  Appendix  A) 

QRAT 

312 

INOUT 

254 

READ 

314 

INPUTB 

255 

REDUCE 

316 

INPUTW 

257 

RICH3A 

318 

INTAPE 

258 

RICHNA 

321 

INTPOL 

260 

RITE 

323 

INTURP 

262 

RRAT 

325 

INV4S 

(See  Appendix  B) 

SAVTAP 

326 

INVBB 

263 

SCAMP4 

329 

INVRW 

265 

SIMUN3 

332 

INVW 

266 

SINVRT 

(See  Appendix  B) 

IPACK 

(See  Appendix  A) 

SIZE 

334 

IRLEAS 

(See  Appendix  A) 

SLOPEW 

335 

IRSERV 

(See  Appendix  A) 

STRM1 

340 

KARMOR 

267 

TAN 

342 
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Subroutine 

Page 

Subroutine 

Page 

TDUMP 

348 

VDOTN 

370 

TFLAT 

344 

VDOTP 

371 

TFLAT1 

350 

VEL1 

372 

TFLATM 

352 

WBX 

374 

TFLATW 

353 

WBXA 

377 

TFLATX 

354 

WBXC 

378 

THETAB 

355 

WBXD 

380 

TRAPCT 

357 

WBXUL 

382 

TRAV 

358 

WBXX 

386 

TROTPT 

359 

WING 

389 

TTAPE 

360 

WING1 

392 

TVEL 

361 

WING1A 

395 

UFOOL 

(See  Appendix  A) 

WING1B 

398 

UNLOAD 

364 

WING2 

400 

UPDATE 

(See  Appendix  A) 

WING2P 

405 

USETAP 

365 

WINGA 

406 

UVECN 

368 

WLDM 

414 

VCROS 

369 
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SUBJECT: 


FORTRAN  IV  Subroutine  ACOS 
(See  subroutine  FASNCS) 
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SUBJECT: 


FORTRAN  IV  Subroutine  AERO 


PURPOSE:  To  control  the  flow  through  the  Aerodynamics 

section  of  the  program. 


METHOD:  The  flow  to  the  main  subroutines  of  the  aerodynamics 

links  is  controlled  by  this  subroutine  for  the  three 
possible  configurations  (wing  alone,  body  alone, 
and  wing-body  combinations) . 
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USAGE: 


SUBPROGRAM 

CALLED: 


ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE 


CALL  AERO 

COMMON  DATE(2) , NTAPEA,  NTAPEB,  NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NB0DY,  NWING,  XMACH,  SYM,  KACE 


Input:  NTAPEC  = Logical  number  of  the  tape  on 

which  geometrical  data  and 
aerodynamic  matrices  can  be 
written  and  saved  for  later 
computer  ms. 

KACE  = Code  that  indicates  type  of 
configuration. 

= 1,  wing  alone. 

= 2,  body  alone. 

= 3,  wing -body  combination. 

INTURP 

USETAP 

AMATE 

INVW 

INVBB 

REDUCE 

INVRW 

PARTV 

MDMATE 

SAVTAP 

FORCES 

FLOVIZ 

UNLOAD 

None 

None 

240,  = 36010 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  ALUN 

To  read  a save  tape  to  obtain  necessary  geometric  and 
computational  results  from  earlier  parts  of  the  program 
for  use  by  EVAL1  and  VEL1. 

The  tape  is  read  according  to  the  format  given  in 
Appendix  D . 

CALL  ALUN  (NTA) 

COMMON  /FLOV1/  KACE , NPANE  L,  NBODY,  NWING 

NBODYS,  NWINGS,  NROW,  XMACH,  SYM 
COMMON  /FLOV2/X,  Y,  Z,  NPART,  ALPHAS, 
THETA,  XBB,  R,  WT,  T,  TC,  SST, 

CHORD 

COMMON  /FLOV3/  T 11,  TC  11 

COMMON  /BA/XB  (210),  YB  (210),  ZB  (210) 

COMMON  /BB/XC  (210),  YC  (210),  ZC  (210) 
DIMENSION  X (210,  3,  4),  Y (210,  3,  4),  Z (210,  3,  4) 
DIMENSION  NROW  (2),  NPART  (210) 

DIMENSION  ALPHAS  (210),  THETAS  (210),  CHORD  (210) 
DIMENSION  XBB  (50),  R (50),  WT  (120) 

DIMENSION  T (50),  TC  (50),  SST  (210) 

Inputs:  NTA  = logical  tape  number  of  save  tape 

XB  = X -coordinate  of  boundary  point 
YB  = Y -coordinate  of  boundary  point 
ZB  = Z -coordinate  of  boundary  point 
XC  = X coordinate  of  centroid  of  panels 
YC  = Y coordinate  of  centroid  of  panels 
ZC  = Z coordinate  of  centroid  of  panels 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


The  arrays  described  above  are  not 
referenced  and  are  included  merely  as  a 
convenience  for  future  modifications. 


FSF 

None 

Assumes  that  the  save  tape  is  written  in  proper  format. 
22008  = n72io 
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SUBJECT.* 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  ALPHAB 

To  calculate  body  panel  alpha -incidence  angles. 

The  program  calculates  the  panel  alpha -incidence  angle  by 
use  of  a geometric  function.  For  an  arbitrary  body  panel, 


the  incidence  angle, 0£ , is  the  angle  of  the  panel  in  the  x', 
y',  z'  coordinate  system  of  the  panel  as  viewed  down  the 
y'-axis.  The  x'-axis  of  this  system  is  parallel  to  the  x-axis 
of  the  body  coordinate  system,  though  this  is  not  true  for 
the  y*  and  zf  axes  for  a panel  of  nonzero© -inclination. 

For  a body  panel  defined  as  follows, 


the  a -incidence  angle  is  calculated  by  the  following 
formula,  which  involves  the  inclination  angle  0, 


a = tan 


-Ip2! 


- zt)  cos  o - (y1  - yt)  si. 


(xi  ' Xi> 


I 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) 

COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  NPER1 

NPLN1 

COMMON  /COM2/  (See  subroutine  BODY) 


Input: 

KPANEL 

XCOR 

YCOR 

ZCOR 

XINT 

YINT 

ZINT 

THETA 

Output: 

ALPHA 

CALL  ALPHAB 

ATAN 

SIN 

COS 


Built-in  functions 


None 

362^0  = 552g 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  AMATE 

To  control  the  flow  through  a section  of  the  aero 

dynamic  links  of  the  program. 

The  flow  is  given  in  the  following  diagram . 


SUBROUTINE  AMATE 


137 


USAGE: 


SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


CALL  AMATE 

COMMON  DATE  (2),  NT  A PEA,  NTAPEB , NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  RACE 

COMMON  /BLOCK/  ALPHAS(210),  AREA(210), 

A(210) , ALPHAC(llO) , ALPHAT(llO),  CHORD(210), 

ISYM,  NPART(210),  NPANEL,  NROW(2), 

THETA(210),  TAIL,  U(210),  V(210),  VPM(210), 

YV(210),  VPMM(210>,  W(210),  WPM(210),  WW(210), 
WPMM(210) , X(210,3,4),  XBAR(210),  XC(210), 

Y(210,3,4),  YBAR(210),  YC(210),  Z(210,3,4), 

ZBAR(210),  ZC(210) 

Input:  KACE  = Code  that  Indicates  type  of  configuration. 

= 1,  wing  alone. 

= 2,  body  {done. 

= 3,  wing-body  combination. 

NBODY=  Number  of  body  panels. 

XC  = Array  of  panel  control  point  coordinates. 
XBAR  = Array  of  panel  centroid  coordinates . 


INTAPE 

EVAL 


None 

None 

1228210  = 27772g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  AREAP 

To  calculate  the  area  of  a panel. 

Area  S of  a panel  is  obtained  by  dividing  panel  into  two  tri- 
angular  subpanels,  using  a vector  cross-product  routine  to 


and  areas  and  S2  of  each  subpanel  are  calculated  and 
summed  for  panel  area  S. 

S-^  S2  = S 


The  subroutine  also  calculates  ratio  R of  area  S-^  of  sub- 
panel  1,  to  panel  area  S, 


S 


This  value  is  used  in  other  subroutines. 


DIMENSION 


X(16,  16),  Y(16,  16),  Z(16,  16),  S(15,  15), 
R(15 , 15) 


X 

Y 

Z 


x,  y,  and  z coordinates  of  panel  corner 
points . 
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S = Panel  area. 

R = Ratio  of  subpanel  area  to  panel  area. 
CALL  AREAP  (X,  Y,  Z,  S,  R,  NC,  NR) 

Input:  X ] 

Y 1 (see  above) 

Z J 

NC  = Number  of  panel  columns. 

NR  = Number  of  panel  rows. 

Output:  S I , 

R J (see  above) 

SUBPROGRAM 

CALLED:  VCROS 

ERROR  RETURNS:  None 

STORAGE:  239-q  = 357g 
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SUBJECT:  FORTRAN  IV  Subroutine  ASIN 

(See  subroutine  FASNCS) 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Function  ATN1 

To  compute  the  arctangent,  in  radians. 

This  function  has  been  replaced  by  the  standard  built-in 
function  ATAN2  with  a $NAME  control  card. 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  BCAM 

To  compute  camber  slopes  at  body  panel  control  points 
from  a given  body  camber  shape. 

The  camber  shape  is  specified  by  a table  of  z (camber) 
vs.  x (body  source  control  station).  This  table  is  con- 
verted to  a second  table  of  Az  vs.  x: 


zi  + 1 " zi 


|“i  xi  + l-xi 


A z.  “ 


Slope  a c (camber  slope)  at  xc  (body  panel  control 
point)  is  contained  by  interpolation: 


xc.  - x. 


«c  - Az.  +XJ./ -1"  x (Azi  " AZi  - 1) 

c)  1+1  xi  xi-l 


CALL  BCAM  (NBGDYS,  NROWB,  XB,  ZDELTA,  XC , 
DZDXB,  ACB) 


DIMENSION  XB(55),  ZDELTA(55),  XC(100),  DZDXB(55), 
ACB(55) 


Input:  NBODYS 


Number  of  body  source  control 
stations. 


NROWB  = Number  of  rows  of  body  panels. 


XB  = Array  of  x-coordinates  of 

body  source  control  stations. 


ZDELTA  = Array  of  camber  shapes  at  the 
body  source  control  stations. 


XC 


Array  of  x-coordinates  of  body 
panel  control  points. 


DZDXB  = Dummy  array. 


Output:  ACB 


Array  of  camber  slopes  at  the 
body  panel  control  points. 


SUBPROGRAMS 
CALLED:  None 
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ERROR  RETURNS:  None 

RESTRICTIONS:  NBODYS  ^ 55 

STORAGE:  132 1Q  = 204g 
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SUBJECT:  FORTRAN  IV  Subroutine  BCUTX 

PURPOSE:  To  find  the  intersections  of  a set  of  body  meridian  lines 

with  a plane  normal  to  the  x-axis . 

METHOD:  Subroutine  POLXN  is  used  to  find  the  intersection  of  each 

meridian  line  with  the  plane. 

USAGE:  DIMENSION  B(l),  A(2,  N) 

CALL  BCUTX  (B,  N,  X,  EP,  NA,  A) 

Input:  B = Array  of  body  meridian  line  points,  with 

header  (see  subroutine  WBXUL). 

N = Number  of  body  meridian  lines. 

X = Body  station.  The  plane  will  be  taken  as 
x = X. 

EP  = A tolerance  used  by  POLXN  in  finding 
intersections. 

Output:  NA  = Number  of  points  in  A.  NA  < N. 

A = Array  of  points  (yj,  zj)  in  section.  These 
points  are  in  1-to-l  correspondence  with 
meridian  lines  only  if  each  meridian  line 
intersects  the  plane. 

SUBPROGRAM 

CALLED:  POLXN 

ERROR  RETURNS:  None 

RESTRICTIONS:  N must  be  greater  than  zero.  If  a meridian  line  has  multiple 

plane  intersections,  the  first  intersection  found  will  be  used. 

STORAGE:  133,  „ = 205  „ 

10  8 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  BITURP 

Given  a table  of  y versus  x and  a value  of  x,  to  find  the 
corresponding  value  of  y by  either  linear  or  biquadratic 
interpolation. 

Let  n be  the  number  of  points  (xi,  yi)  in  the  given  table. 

Let  X be  the  given  value  of  x for  which  the  corresponding 

Y is  desired.  If  n = 2,  the  linear  interpolation  mode  is 
selected  (even  if  biquadratic  interpolation  was  requested). 

If  xi  < xn,  the  table  is  searched  from  top  to  bottom;  other- 
wise the  search  is  from  bottom  to  top.  If  X is  outside  the 
table  range,  an  error  code  is  set  and  Y is  returned  as  y^ 

Or  yn  (depending  on  whether  X is  closer  to  xj  or  xn).  If 
X = xj  then  no  interpolation  is  necessary  and  Y = yj. 
Otherwise,  the  table  interval  that  contains  X is  located. 

For  linear  interpolation,  the  calculation  of  Y is  trivial. 

Y may  be  found  by  biquadratic  interpolation  if  X does  not 
lie  in  the  first  or  last  table  interval.  For  illustration  of  the 
method,  assume  that  x2  < X < x3.  Fit  a quadratic  Q2(x) 
to  the  points  (xj,  yj),  i = 1,  2,  3 and  another  quadratic 
Q3(x)  to  the  points  (xj,  yj),  i = 2,  3,  4.  Find  the  slopes 
Q*2(x2)  and  Q’3(x3).  Fit  a cubic  to  the  points  (x2,  y2)  and 
(x3,  y3)  with  the  corresponding  slopes  Q'2(x2>  Q'3(x3)* 
Evaluate  the  cubic  at  x = X to  find  Y. 

However,  Y is  actually  computed  by  the  following  inter- 
polating formula  (which  has  a continuous  first  derivative), 
mathematically  equivalent  to  the  above  method: 

(x3  - X)Q2(X)  + (X  - x2)Q3(X) 

x3  - x2 

Q2(X)  and  Q3(X)  are  found  by  subroutine  QRAT. 

If  X lies  in  the  first  or  last  interval  of  the  table,  biquad- 
ratic interpolation  cannot  be  used.  Y is  therefore  com- 
puted by  quadratic  interpolation. 

DIMENSION  X(l),  Y(l) , NU(3) 

CALL  BITURP  (X,  Y,  I,  N,  K,  XI,  YI,  NU) 

Input:  X = Location  of  the  first  x-coordinate  in  the  table. 

Y = Location  of  the  first  y -coordinate  in  the  table. 
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SUBPROGRAM 

CALLED: 

RESTRICTIONS: 

STORAGE: 


I = Skip  number;  that  is,  the  spacing  of  table 

values  in  the  X and  Y arrays.  For  example , 

I =1  if  X = (xi , X2,  .... . ) and  Y = (yi,  y2,  . . .); 
however,  if  x and  y are  stored  in  a single 
array,  say  W = (xi,  yi,  x2,  y2»-  ••).  then 
I = 2 and  the  subroutine  call  would  be  CALL 
BITURP  (W,W(2),  2,  ...). 

N = Number  of  points  in  the  table. 

K = Interpolation  code  (K  = 1 if  linear  interpola- 
tion; K = 2 if  biquadratic  interpolation). 

XI  = The  given  value  of  x for  which  the  corres- 
ponding value  of  y is  desired. 

NU  = Error  indicator  array:  NU(1)  is  not  used, 

<hi  input.  NU(2)  is  an  output  tape  number 
on  which  to  write  a message  if  an  error  is 
detected;  no  message  is  written  if  NU(2)  < 0. 
NU(3)  is  an  error  message  limiter;  if  an 
error  is  detected,  NU(3)  = NU(3)  - 1.  Then 
if  NU(3)  > 0 and  NU(2)  > 0,  an  error  mes- 
sage is  written. 

Output:  YI  = Interpolated  value  of  y (if  NU(1)  = 0,1,  or  2). 

NU  = Error  indicator  array:  NU(1)  = 0 if  success; 

= -1  if  I < 0;  = -2  if  N < 2;  = -3  if  X!  = xn; 

= 1 or  2 if  X is  outside  the  table  range ; = 3 
or  4 if  a quadratic  could  not  be  formed  (be- 
cause two  points  near  the  line  x = X have 
the  same  x-coordinate.  NU(2)  is  not  an  out- 
put. NU{3)  is  reduced  by  one  if  an  error 
was  detected. 


QRAT 

BITURP  does  not  check  the  X array  to  see  that  it  is  mono- 
tonic . Weird  results  may  be  obtained  if  it  is  not  monotonic 
in  the  neighborhood  of  the  interpolating  interval  for  biquad- 
ratic interpolation. 

37510  ‘ 567  8 
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SUBJECT: 


FORTRAN  IV  Subroutine  BJTURP 
(See  Subroutine  BITURP) 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  BLDM 

To  compute  Hie  coefficients  of  lift,  drag,  and  pitching 
moment  for  the  region  of  the  body  represented  by  panels. 

The  force  normal  to  the  panel  is  given  as  the  product  of  the 
dynamic  pressure,  surface  pressure  coefficient,  and  panel 
area: 

Fi  = q • Cp.  • Aj 

Resolving  into  the  components  normal  and  parallel  to  the 
free  stream  yields  the  lift  and  drag 

Lj  = - F|  • cos  0j_ 

Di  = Fi  * ni 

where  nj  is  the  component  of  velocity  normal  to  the  x-axis 
and  0j  is  the  angle  between  the  plane  of  the  panel  and  a 
panel  parallel  to  the  x-y  plane. 

The  moment  of  force  with  respect  to  a point  (x,  0,  z)  is 
given  by 

Mj  = - Lj  (Xi  - x)  + Di  (Zi  - z) 

where  Xi,  Zi  are  the  x and  z coordinates  of  the  panel 
centroid. 


Finally,  the  coefficients  of  lift,  drag,  and  moment  on  the 
body  panels  are  given  by 

cL  = 1 


NM 

E 


CD  ~ 


CM  “ 


q * % 

1 NM 

q ' % Di 
NM 

1 • Sw  § M‘ 


where  Sw  is  the  wing  reference  area,  and  NM  is  the  num- 
ber of  body  panels. 


CALL  BLDM(NM,  XP,  ZP,  RFAREA , AREA,  XBAR, 
ZBAR,  ALPHAM,  THETAM,  CPM,  CL, 
CD,  CM) 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 
STORAGE : 


DIMENSION  AREA(NM),  XBAR(NM),  ZBAR(NM) , 

ALPHAM(NM) , THETAM(NM),  CPM(NM) 


Input: 

NM 

= Number  of  body  panels. 

XP 

= x-coordinate  of  the  point  about  which 
the  pitching  moments  are  to  be 
calculated. 

ZP 

= z -coordinate  of  the  point  about  which 
the  pitching  moments  are  to  be 
calculated. 

RFAREA 

= Wing  reference  area. 

AREA 

= Array  of  body  panel  areas . 

XBAR 

= Array  of  body  panel  centroid  x- 
coordinates. 

ZBAR 

= Array  of  body  panel  centroid  z - 
coordinates. 

ALPHAM 

= Array  of  the  velocity  components  nor 
mal  to  the  x-axis. 

THETAM 

= Array  of  angles  between  the  plane  of 
the  panel  and  a plane  parallel  to  the 
x-y  plane. 

CPM 

= Array  of  panel  surface  pressure  co- 
efficients. 

Output: 

CL 

= Coefficient  of  lift. 

CD 

= Coefficient  of  drag. 

CM 

= Coefficient  of  pitching  moment. 

COS  (Built-in  function) 

None 

None 

11810  = 1668 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBROUTINES 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


FORTRAN  IV  Function  BLUNDR 

This  routine  is  used  to  prevent  the  overflow  of  arrays 
in  GRIDS. 

Compares  the  product  of  increment  parameters  IX,  IY, 
IZ  against  NMAX  as  indicated  by  MODE  (see  Subroutine 
GRIDS). 

IF  (BLUNDR  (DC,  IY,  IZ,  MODE,  NMAX).NE.O.) 
RETURN 

Input:  IX  = x - increment  parameters. 

IY  = y - increment  parameters. 

IZ  = z - increment  parameters. 

MODE  = Indicates  the  planar  cut  to  be  taken; 

the  total  number  of  points  in  such  a 
plane  must  be  less  than  NMAX. 

NMAX  = The  maximum  dimension  of  the  GP  and 
VLS  arrays. 

Output:  BLUNDR  = 0.  acceptable  inputs. 

= 1.  unacceptable  inputs. 

A message  is  written  on  the  output  tape  if 
BLUNDR  = 1 


None 

See  Output  above. 
None 


STORAGE: 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  XV  Subroutine  BODCR 

To  find  the  area,  equivalent  radius,  and  centroid  of  a body 
section. 

It  is  assumed  that  the  body  is  symmetrical  about  a plane 
parallel  to  the  x-z  plane,  and  that  only  one  side  of  the  body 
is  given.  The  body  is  specified  by  a set  of  meridian  lines 
(subroutine  WBXUL).  Subroutine  BCUTX  is  used  to  find 
the  y-z  coordinates  of  the  meridian  lines  at  a given  value 
of  x.  These  coordinates  form  the  two-dimensional  points 
of  a body  section.  A test  is  made  to  see  that  the  y-coordi- 
nates  of  the  first  and  last  points  are  the  same  within  a given 
tolerance.  The  average  of  these  two  values  is  used  for  the 
centroid  y-coordinate.  Subroutine  ENRYCH  is  called  and, 
if  a given  quantity  CHD  is  greater  than  zero,  additional 
points  on  the  section  are  interpolated.  The  centroid  and 
area  of  the  section  are  found  by  subroutine  CEGAR.  The 
area  is  then  doubled  to  make  it  apply  to  the  entire  body 
section.  If  the  area  is  smaller  than  a given  tolerance,  the 
z-coordinate  of  the  centroid  is  taken  as  the  average  of  the 
z-coordinatee  of  the  first  and  last  points  in  the  section; 
otherwises  the  value  found  by  CEGAR  is  used.  The  z- 
coordinate  of  the  centroid  is  set  to  zero  if  it  is  smaller 
than  a given  tolerance.  The  section  radius  is  found  by 
averaging  the  distances  from  the  centroid  to  each  meridian 
line;  if  the  radius  is  less  than  a given  tolerance,  it  is  set 
to  zero. 


DIMENSION  B(l), 

EP(5),  S(2,  N),  E(MAXE),  NU(3) 

CALL  BODCR  (B,  N,  X,  EP,  CHD,  MAXE,  S,  E,  NE,  Y, 
Z,  AREA,  RAD,  NU) 

Input: 

B 

= Body  meridian  line  array,  with 
header  (see  subroutine  WBXUL). 

N 

= Number  of  meridian  lines. 

X 

= Body  station  (x-coordinate  section). 

EP 

= Array  of  tolerances. 

CHD 

= Tolerance  that  regulates  the  number 
of  points  interpolated  by  ENRYCH 
(affects  only  AREA  and  Z). 

MAXE 

= Length  of  array  E. 
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SUBPROGRAMS 

CALLED 


ERROR  RETURNS: 


RESTRICTIONS: 


STORAGE: 


NU  = Error  indicator  array.  NU(1)  is  not 

used  on  input.  NU(2)  is  an  output 
tape  number  on  which  to  write  a 
message  if  an  error  is  detected; 
no  message  is  written  if  NU(2)  < 0. 
NU(3)  is  an  error  message  limiter; 
if  an  error  is  detected,  NU(3)  = 
(NU(3)  - 1).  Then  if  NU(3)  > 0 and 
NU(2)  > 0,  an  error  message  is 
written. 

Output:  S = Array  of  points  (yt,  Z|)  in  section. 

E = Scratch  array. 

NE  = Number  of  elements  in  enriched 

array. 

Y = y-coordinate  of  centroid. 

Z = z -coordinate  of  centroid. 

AREA  = Area  of  entire  section  (twice  area 
of  the  half-section). 

RAD  = Equivalent  radius. 

NU  = Error  indicator  array.  NU(1)  = 0 

if  success. 

ENRYCH 

CEGAR 

SQRT  (Built-in  function) 

BCUTX 

A message  is  written  if  an  error  is  detected.  NU  = 1 if  the 
number  of  points  in  the  section  (found  by  BCUTX)  is  less 
than  N or  less  than  2.  An  error  of  NU  = 2,  4,  or  5 is  from 
ENRYCH.  If  an  error  code  of  3 was  returned  by  ENRYCH, 
NU  is  set  to  zero  but  a message  is  written. 

CHD  should  be  zero  if  the  section  is  symmetrical  about  a 
horizontal  plane  or  if  there  are  less  than  eight  meridian 
lines. 

48610  = 746g 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  BODY 

To  serve  as  a control  program  for  the  body  paneling  sub- 
routines. 

Program  uses  a series  of  FORTRAN  IV  language  "CALL" 
statements  to  call  the  required  body  paneling  subroutines. 

The  program  contains  the  following  labeled  COMMON  state- 
ment that  occurs  in  all  lower  level  body  paneling  subroutines, 
COMMON  /COM2/  NPLNB,  NPLNW,  JLEAD , JTRAIL, 

IMID,  NPTS(16) , X(16,  90),  Y(16,  90),  Z(16,  90), 

XCEPT(21),  XCEPTB(21),  XCEPTW(16),  YCEPTW(16), 
ZCEPTW(16),  CODEBW(16),  KPANEL(15,  20),  XCOR(16,  21), 
YCOR(16,  21),  ZCOR(16,  21),  XINT(15,  20,  2),  YINT(15,  20,  2), 
ZINT(15,  20,  2),  XCEN(15,  20),  YCEN(15,  20),  ZCEN(15,  20), 
XCON(15 , 20),  YCON(15,  20),  ZCON(15,  20),  AREA(15,  20), 
ARAT(15,  20),  THETA(15,  20),  ALPHA(15,  20),  CHORD(15  , 20) 


NPLNB 


NPLNW 


JLEAD 

JTRAIL 

IMID 


= Number  of  cutting  planes  to  intersect 
the  body  fore  and  aft  of  the  body-wing 
inter  section  region. 

= Number  of  cutting  planes  to  intersect 
the  body  in  the  body-wing  intersection 
region. 


= Codes  for  internal  program  control. 


NPTS 


= Number  of  points  on  the  successive  body 
meridian  lines  that  define  the  body. 


X 

Y 

Z 


= x,  y,  and  z coordinates  of  points 
on  body  meridian  lines. 


XCEPT 

XCEPTB 


XCEPTW 

YCEPTW 

ZCEPTW 


x intercepts  of  all  body  cutting 
planes. 

x intercepts  of  those  body  cutting 
planes  that  intersect  fore  and  aft  of  the 
body-wing  intersection  region. 

x,  y,  and  z coordinates  of  the  inter- 
sections with  the  body  of  those  wing  per- 
cent lines  that  define  body  cutting  planes. 


CODEBW  = Codes  that  indicate  wing  percent  lines 
that  are  to  define  body  cutting  planes  in 
body -wing  intersection  region. 
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KPANEL 


= Code  for  body  panel  type.  If  KPANEL 
(I,  J)  - 1,  both  additional  subpanel  cor- 
ner points  are  located  on  panel  trailing 
edge.  If  KPANEL  (I,  J)  = 2,  inboard 
point  is  on  leading  edge , and  outboard 
point  is  on  trailing  edge.  If  KPANEL 
(I,  J)  = 3,  inboard  point  is  on  trailing 
edge  and  outboard  point  is  on  leading 
edge.  If  KPANEL(I,  J)  = 4,  both  points 
are  on  leading  edge. 


XCOR 

YCOR 

ZCOR 


x,  y,  and  z coordinates  of  body 
panel  corner  points. 


XINT 

YINT 

ZINT 


= x,  y,  and  z coordinates  of  additional 
subpanel  corner  points. 


XCEN 
YCEN 
ZCEN , 

XCON 

YCON 

ZCON. 

AREA 

ARAT 

THETA 

ALPHA 

CHORD 


= x,  y,  and  z coordinates  of  body 
panel  centroid. 

= x,  y,  and  z coordinates  of  body 
panel  control  point. 

= Body  panel  area. 

= Ratio  of  sub  panel  area  to  panel  area. 
•=  Body  panel  theta-inclination  angle. 

= Body  panel  alpha -incidence  angle. 

= Body  panel  streamwise  chord  length. 
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USAGE:  COMMON  (See  subroutine  OPCAMI  for  description  of  un- 

labeled COMMON) 

CALL  BODY 

SUBPROGRAMS 

CALLED:  INPUTB 

CRNRB 

AREAP 

CENTRD 

CNTRLB 

THETAB 

ALPHAB 

OUTPTB 


ERROR  RETURNS:  Error  message  indicates  whether  error  occurred  in  calcu- 

lation of  body  panel  geometry. 

STORAGE:  15210  = 230g 
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SUBJECT:  FORTRAN  IV  Subroutine  BODY1 

PURPOSE:  To  read  data  cards  that  specify  a body  surface  and  generate 

three-dimensional  points  on  body  meridian  lines. 

METHOD:  A body  surface  is  specified  by  a set  of  defining  sections  nor- 

mal to  the  X axis.  Points  on  defining  sections  are  given  in 
polar  coordinate  form  (p , 9)  or  in  rectangular  coordinates 
(y,  z).  The  number  of  points  must  be  the  same  for  all  sec- 
tions (except  for  zero-area  sections).  For  convenience, 
several  options  are  available  for  specifying  section  points 
I (see  Input  Data  Format,  3. 3,  card  6D). 

Three-dimensional  points  on  the  i^  body  meridian  line  are 
formed  by  selecting  the  i^1  point  at  each  defining  section. 
Additional  points  are  interpolated  (if  requested)  so  that 
straight -line  connections  between  adjacent  points  will  repre- 
sent a smooth  curve  as  closely  as  specified. 

USAGE:  DIMENSION  DAT (2),  B(l),  AXIS(2),  HTLE(12),  NU(3) 

LOGICAL  LGDEF(3,  6) 

CALL  BODY1  (DAT,  U,  LO,  B,  LSTA,  NSTA,  LBPL, 
"T'''"---  MBPL,  NBPL,  LTHETS,  AXIS,  TITLE, 

LGDEF,  NU) 

Input:  DAT  = Date  (alphameric). 

LI  = Input  tape  number. 

LO  = Output  tape  number. 

B = Buffer  for  variable -length  arrays. 

NU  = Error  indicator  array:  NU(1)  is  not 

used,  on  input.  NU(2)  is  an  output 
tape  number  on  which  to  write  a mes- 
sage if  an  error  is  detected;  no  mes- 
sage is  written  if  NU(2)  < 0.  NU(3) 
is  an  error  message  limiter;  if  an 
error  is  detected,  NU(3)  = (NU(3)  - 1). 
Then  if  NU(3)  > 0 and  NU(2)  >0,  an 
error  message  is  written. 

Output:  B = Buffer  for  variable -length  arrays. 

LSTA  = The  set  of  body-defining  stations  (x- 
values)  starts  in  B(LSTA). 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


NSTA  - Number  of  body -defining  stations. 

LBPL  = The  body  meridian  line  array,  with 
header,  starts  in  B (LBPL).  See 
Appendix  D for  the  array  format. 

MB  PL  = Number  of  meridian  lines. 

NBPL  = Number  of  cells  in  meridian -line 
array. 

LTHETS  = The  standard  set  of  0 values  (in  de- 
grees) corresponding  to  meridian 
lines,  starts  in  B(LTHETS). 

AXIS  = y and  z coordinates  of  the  body 
main  axis. 

TITLE  = Body  title  (alphameric) . 

LGDEF  = LGDEF(1,  3)  is  set  to  .TRUE. , 

LGDEF(2,  3)  is  set  to  .TRUE,  if  the 
body  meridian  lines  are  successfully 
computed. 

NU  = Error-indicator  array.  NU(1)  is 

zero  if  no  errors  were  detected. 

NU  (3)  may  have  been  changed  if  an 
error  was  found  (see  INPUT,  above). 


RICHNA 

BODY1M 

BODY1R 

MERR 

IDLETE 

IRLEAS 

IRSERV 

IPACK 


(See  Appendix  A) 


Function  MERR  is  used  to  write  an  error  message  "ERROR 
i,  CODE  j IN  SUBROUTINE  BODY1  DURING  GEOMETRIC 
DEFINITION"  if  an  error  is  detected. 


i_  j_  Explanation 

1 0 The  number  of  defining  sections  (BNS,  card  4D)  or 

the  number  of  meridian  lines  (BTHETA)  is  less  than 
2 or  greater  than  150. 
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RESTRICTIONS: 


STORAGE: 


i.  i Explanation  (cont) 

2 0 BNS  * BTHETA  is  so  large  that  the  storage  re- 

quired for  the  meridian -line  points  (even  with  no 
enriching)  is  greater  than  the  storage  available  in 
array  B. 

3 1 The  code  for  the  type  of  body  section  (SCODE , 

card  6D)  is  less  than  0 or  greater  than  6. 

3 2 SCODE  = 3 (elliptical  section),  but  a semi-axis 

is  zero. 

4 k Meridian  lines  have  been  formed,  but  error  k was 

detected  in  subroutine  RICHNA. 

5 0 Machine  or  program  error  of  undetermined  origin. 

The  storage  buffer,  B,  for  variable -length  arrays  must 
have  been  initialized  by  subroutine  INIBFR  (Appendix  A) 
or  its  equivalent. 

568io  = 10708 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  BODY1M 

To  write  body  meridian  line  points  on  an  output  tape. 

This  is  primarily  an  output  routine  for  BODY1.  The  merid- 
ian lines  are  given  in  a single  array  with  the  format  described 
in  Appendix  D.  The  polar  coordinates  of  each  point  are  com- 
puted in  a plane  normal  to  the  x axis  with  polar  origin  at  the 
body  axis.  Points  that  lie  in  a body  defining  section  (within 
0. 0001)  are  identified  by  an  asterisk. 

DIMENSION  B(l),  AXK>(2),  TITLE (12),  DAYT(2),  STA(l) 


CALL  BODY1M  (B,  NB,  AXIS,  TITLE,  DAYT,  LO,  STA) 

Input: 

B 

= Array  of  meridian  lines,  with  header. 

NB 

= Number  of  meridian  lines. 

AXIS 

= y,  z coordinates  of  main  body  axis. 

TITLE 

= Title  (alphameric). 

DAYT 

'=  Date  (alphameric) . 

LO 

= Output  tape  number. 

STA 

= Array  of  defining  stations  X-values). 

Output: 

Printout  on  tape  LO . 

ATN1 

SQRT  (Built-in  function) 
TRAV 

None 


None 


373 


10 


5658 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  BODY1R 

To  read  and  write  data  that  specify  body  defining  sections, 
and  form  three-dimensional  points  on  body  meridian  lines. 

The  number  of  body -defining  sections,  number  of  meridian 
lined;  the  Y and  Z coordinates  of  the  body  axis,  and  a 
standard  set  of  angles  are  given.  Each  section  lies  in  a 
station  plane  (normal  to  the  X axis).  A meridian  line  of 
three-dimensional  points  on  the  body  surface  is  formed  by 
selecting  corresponding  points  from  each  station.  Let 
NPT  = number  of  meridian  lines  = number  of  two-dimensional 
points  per  section  = number  of  angles  in  the  standard  set. 

Subroutine  BODY1S  is  called  for  each  section  to  read  data 
cards  and  compute  NPT  three-dimensional  points  on  the 
body  surface.  These  points  are  then  stored  in  meridian - 
line  order.  Results  for  each  section  are  written  on  an  out- 
put tape. 

DIMENSION  BAXIS(2),  TTTLE(12),  DAT(2),  THETS(NPT), 
THETA  (NPT) , RHO(NPT) , PT(3,  NPT), 

BPL(3,  NSTA,  NPT),  STA(NSTA) 

CALL  BODY1R  (LI,  LO,  NPT,  NSTA,  BAXIS,  TITLE, 

DAT,  THETS,  THETA,  RHO,  PT,  BPL, 
STA,  NU) 


Input: 


LI  = Input  tape  number. 

LO  = Output  tape  number . 

NPT  = Number  of  meridian  lines. 

NSTA  = Number  of  defining  sections  (stations) . 
BAXIS  = Y,  Z coordinates  of  main  body  axis. 
TITLE  = Title  (alphameric). 

DAT  = Date  (alphameric), 

THETS  = Array  of  standard  angles,  in  degrees. 


Scratch:  THETA 
RHO 
PT 

Output:  BPL 
STA 


Storage  for  9 , p , and  point  coor- 
dinates (used  at  each  section). 

Points  on  meridian  lines. 

Array  of  defining  stations  (X  coordinates). 
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NU  = Error  indicator,  which  is  zero  for 
success. 

SUBPROGRAM 

CALLED:  BODY1S 

ERROR  RETURNS:  If  NU  t 0,  see  BODY1S. 

RESTRICTIONS  : Tape  LI  must  be  properly  positioned  and  contain  NSTA 

sets  of  data  for  BODY1S. 

STORAGE:  3681()  = 560g 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  BODY1S 

To  read  body-defining  section  data  cards  and  compute  points 
on  the  body  section. 

Data  cards  are  described  in  section  3. 3.  The  code  for  section 
type  is  checked  for  validity;  then  the  indicated  operation  is 
carried  out, 

DIMENSION  BAXIS(2),  THETS(NPT),  SECAX(2), 

THETA(NPT),  RHO(NPT) , PT(3,  NPT) 

CALL  BODY1S  (LL,  BAXIS,  NPT,  THETS,  SECAX,  SCODE, 
THETA,  RHO,  PT,  NU) 


Input:  LI  = Input  tape  number. 

BAXIS  = Y,  Z coordinates  of  the  main  body  axis. 
NPT  = Number  of  points  in  section. 


THETS  = Array  of  angles,  in  degrees,  which  are 
used  for  SCODE  = 1,  2,  and  3. 

PT  = See  OUTPUT,  below;  used  as  input 

only  if  SCODE  = 0. 


Output:  SECAX  = Y,  Z coordinates  of  the  section  origin 

(p,  0 origin). 


SCODE  = Code  for  type  of  section  (read  from 
card). 


0.  This  section  is  identical  to  the 
previous  section , except  for  X- 
coordinates.  Store  the  station 
value  (read  from  card)  as  the  x- 
coordinate  for  each  point  in  PT. 


1.  Read  NPT  values  of  p from  cards. 
Use  with  the  THETS  array  to  com- 
pute Y,  Z coordinates  of  points  on 
the  section. 


2.  Circular  section.  Use  the  radius 
(read  from  card)  as  p , and  THETS 
to  compute  section  points. 

3.  Section  is  a rectangular  ellipse. 
Use  the  semi-axes  (read  from 
card)  to  construct  ellipse.  Find 
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p 's  corresponding  to  THETS. 
Construct  points  on  section. 

4.  Circular  section,  but  read  NPT 
values  of  0 from  cards  instead 
of  using  THETS. 

5.  Read  NPT  values  of  p from 
cards,  then  read  NPT  values 
of  0 from  cards. 

6.  The  y,z  coordinates  of  the  sec- 
tion points  are  given.  Find 
corresponding  p,  0 coordinates; 
but  if  any  p is  zero,  use  corre- 
sponding 0from  THETS. 


THETA 

= Array  of  0 values  (in  degrees)  corre- 
sponding to  each  section  point  (same 
as  THETS  for  SCODE  = 1,  2,  3). 

RHO 

= Array  of  p values. 

PT 

= Array  of  points  (x,  y,  z coordinates) 
in  section. 

NU 

= Error  indicator,  which  is  zero  for 
success. 

SUBPROGRAMS 
CALLED:  ATN1 

UVECN 

ELLIPR 

SIN  (Built-in  function) 

TRAV 

COS  (Built-in  function) 

ERROR  RETURNS:  NU  = 1 if  SCODE  < 0 or  SCODE  > 6. 

NU  = 2 if  SCODE  = 3 and  a semi-axis  is  zero. 

RESTRICTIONS:  Input  tape  LI  is  assumed  to  be  correctly  positioned  and  to 

contain  valid  data.  Angles  are  measured  from  the  vertical, 
and  it  is  assumed  that  0 < 0 < 180.  The  p-0  origin  is  at 
SEC AX. 

STORAGE:  439,  A = 667. 

10  8 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  BSCALE 

To  scale  body  meridian  lines  so  that  each  line  extends 
from  x = 0 to  x = xE,  where  xg  is  given.  The  y and  z co- 
ordinates are  unchanged. 

The  x-coordinates  of  the  points  on  each  meridian  line  are 
scaled  as  follows: 

X'  = (X  - Xj)  XE/(XL  - Xj) 

where  Xj  * x of  first  point,  xg  = x of  last  point. 
DIMENSION  B(l) 

CALL  BSCALE  (B,  NB,  XEND,  NU) 

Input:  B = Meridian  line  array  (see  subroutine 

TFLAT1). 

NB  = Number  of  meridian  lines. 

XEND  = xE. 

Output:  B = Scaled  meridian  line  array. 

NU  = Error  indicator.  NU  = 0 if  success. 
NU  = k if  xL  - xx  = 0 for  the  kth 
meridian  line. 

None 

See  Output 
None 

12510  " 1758 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  BTHICK 

To  compute  thickness  slopes  at  body  panel  control 
points  from  a given  body  radii  distribution. 

The  radii  distribution  is  specified  by  a table  of  r 
(radius)  vs.  x (body  source  control  station).  This 
table  is  used  to  obtain  a second  table  of  A r vs.  x: 


i + 1 


i + 1 


from  which  ax  (thickness  slope)  at  xc  (body  panel 
control  point)  are  calculated  by  interpolation: 


(Ar.  -Arj  _ x) 


USAGE:  CALL  BTHICK  (NBODYS,  NBODY,  NROWB,  XB,  R, 

XC,  ALPHA,  THETA) 

DIMENSION  XB(55) , R(55),  XC(100),  ALPHA  (55), 
THETA(55) 

Input:  NBODYS  = Number  of  body  source  control 


NBODY 

NROWB 

XB 

R 

XC 

ALPHA 
Output:  THETA 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 


stations . 

= Number  of  body  panels. 

= Number  of  rows  of  body  panels. 

= Array  of  x-coordinates  of  body 
source  control  stations. 

= Array  of  radii  at  the  body  source 
control  stations. 

= Array  of  x-coordinates  of  body 
panel  control  points. 

= Dummy  array. 

= Array  of  thickness  slopes  at  the 
body  panel  control  points. 
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RESTRICTIONS:  NBODYS  l 65 

NBODY  4:  100 
STORAGE:  180^  = 264g 
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SUBJECT; 

PURPOSE; 

METHOD; 


USAGE; 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


FORTRAN  IV  Subroutine  CAMBER 

To  compute  the  wing  surface  shape,  given  the  wing 
surface  slopes. 


The  wing  surface  shape  is  computed  column-by-column 
from  the  inboard  column  of  wing  panels  to  the  outboard 
column.  For  a given  column  of  wing  panels,  the  surface 
shape  is  obtained  panel-by-panel  from  the  wing  leading 
edge  to  the  trailing  edge.  If  i specifies  panel  row  and 
j the  column,  then  the  surface  shape  is  calculated: 

/ 

/°‘ 

where 


= panel  surface  shape. 


a = panel  surface  slope. 

Wi,j 


c.  . = panel  chord  length. 

3 

C.  = panel  column  chord  length. 


CALL  CAMBER  (NCOLW,  NROWW,  CHORD,  ALPHAW, 
CSHAPE,  CHORDL) 


DIMENSION:  CHORD(llO),  ALPHAW(llO), 
CSHAPE(llO),  CHORDL(llO) 


Input:  NCOLW 

NROWW 
CHORD 
ALPHAW 
CHORDL 
Output:  CSHAPE 


Number  of  columns  of  wing  panels . 
Number  of  rows  of  wing  panels. 
Array  of  wing  panel  chord  lengths. 
Array  of  wing  surface  slopes. 
Dummy  array. 

Array  of  wing  surface  shapes. 


None 

None 
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RESTRICTIONS:  (NCOLW  V.  NROWW)  ^ 110 

STORAGE:  13910  = 213g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  CAMBW 

To  compute  the  velocity  components  normal  to  the  x-axis 
on  the  wing  panels,  given  the  matrix  of  the  aerodynamic 
influence  coefficients  and  the  pressure  difference  across 
the  panels. 


The  Velocity  components  are  given  by 

NW  NW 

nw.  = 22  22  Aww  PWi 

i=l  j=l  J J 

where  A^w is  the  matrix  of  aerodynamic  influence  coef 
ficients  (influence  on  the  wing,  due  to  the  wing)  and  P\y 
is  the  pressure  difference  across  each  wing  panel. 

CALL  CAMBW  (NW,  NT,  A,  CL,  ALPHAW) 


DIMENSION  A(NW),  CL(NW),  ALPHAW (NW) 

Input:  NW  = Number  of  wing  panels. 

NT  = Logical  tape  number  on  whioh  Aww 

is  stored* 


A = Dummy  array  used  by  the  subroutine. 

CL  = Array  of  pressure  differences. 


Output:  ALPHAW  = Array  of  velocity  components. 


None 


None 

None 

9°10  ’ 1328 
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SUBJECT: 

PURPOSE: 

METHOD- 


USAGE: 


FORTRAN  IV  Subroutine  CAMBWB 

In  the  presence  of  a body,  to  compute  the  velocity  compon- 
ents on  the  wing,  normal  to  the  x-axis. 

The  velocity  component  on  the  wing  panel  i is  given  by 

yV;.-:;;.  / nw  nb 

»Wi  = £ AR|i  ‘ PWi  + SDij  * nBi 
j=i  J J j=i  J 

where  Ag  = The  matrix  of  the  reduced  aero- 
dynamic influence  coefficients, 

pw  = The  pressure  difference  across  wing 
panels, 

D = The  matrix  formed  by  the  product. 


where  AWB  = A partition  of  the  aerodynamic 

influence  coefficients  matrix  re- 
sulting from  the  influence  of  the 
body  on  the  wing. 

Agg  = The  partition  resulting  from  the 
influence  of  the  body  on  the  body. 

n-g  = The  velocity  component  on  the 
body  normal  to  the  x-axis. 


DIMENSION  A(NW),  CLW(NW),  ALPHAB(NB),  ALPHAW(NW) 


CALL  CAMBWB  (NB,  NW,  NT  APEX,  NT  APE  Y,  A,  CLW, 
ALPHAB,  ALPHAW) 

= Number  of  body  panels. 

= Number  of  wing  panels. 


Input:  NB 

NW 


NT  APEX  = Logical  tape  number  on  which  AR  is 
stored. 

NTAPEY  = Logical  tape  number  on  which  D is 
stored. 


A 

CLW 

ALPHAB 


Dummy  array  used  by  the  subroutine. 

Array  of  the  pressure  differences 
across  wing  panels. 

Array  of  velocity  components  on  the 
body,  normal  to  the  x-axis. 
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Output:  ALPHAW  = Array  of  velocity  components  on  the 

wing,  normal  to  the  x-axis. 


SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

14410 
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SUBJECT:  FORTRAN  IV  Subroutine  CEGAR 

PURPOSE:  To  find  the  area  and  the  centroid  (center  of  gravity)  of  a 

polygon. 

METHOD:  Given  n points  (xj,  yj;  i = 1, . . . , n)  that  are  the  vertices 

of  a polygon,  the  area  of  the  polygon  is  given  by  the  magni- 
tude of  A,  where 

* n 

A = 1/2  2 (y  + y ) (x^  - 
i=l  1 

where  , yn+1  are  set  equal  to  x-^ , by  the  subroutine 
to  ensure  that  the  polygon  is  closed.  If  any  two  or  more  of 
the  points  (xj,  yj)  coincide,  no  difficulty  will  result  in  the 
calculation  of  the  centroid,  and  the  area  as  long  as  the 
resulting  polygon  is  a simple  closed  curve. 

The  coordinates  of  the  centroid  are  given  by, 

''  ■-  n 2 2 

x - Z <*i+i + xi + Vi  *i>  <yi+i  - yi> 7 <- 6A)' and 
* m S (yf,i  + yi + yI+1  yi>  <x1+1  - xi»  7 («a) 

USAGE:  DIMENSION  P(2,  n+1),  CG(2) 

CALL  CEGAR  (N,  P , A , CG) 

Input;  N = the  number  of  points,  n. 

P = the  array  of  points  (x^,  y^  that  are  the 
vertices  of  the  polygon. 

Output:  A = the  magnitude  of  the  area  of  the  polygpn. 

CG  = the  centroid  of  the  area,  (x,  y) . 

RESTRICTIONS:  The  polygon  must  be  a simple  closed  curve,  (i.e. , the 

polygonal  arc  cannot  cross  itself) . 

ERROR  RETURNS:  If  the  area  of  the  polygon  is  zero,  then  the  subroutine  sets 

the  coordinates  of  the  centroid  equal  to  zero. 

Because,  in  the  calculation  of  x and  y,  A is  used  as  a 
divisor,  considerable  error  could  result  in  the  values 
obtained  for  x and  y when  A is  close  to  zero.  Overflow 
could  also  occur  for  small  values  of  A. 

STORAGE:  229,.  = 345 

10  o 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  CENTRD 

To  calculate  coordinates  of  a panel  centroid. 

Centroid  coordinates  of  a panel  are  calculated  by  dividing 
panel  into  two  subpanels,  locating  a centroid  on  each  sub- 
panel,  and  averaging  coordinates  of  the  two  centroids  with 
appropriate  weighting  factor.  For  example,  a given  quadri- 
lateral panel: 


and  a centroid  is  calculated  for  each  subpanel  using  stand- 
ard formulae.  For  subpanel  1 of  the  above  example, 

*1  = X1  + | (x3  + | <x4  - x3>  - xl) 

*i  = yi  + I (y3  - \ <^4  - *3*  - yi) 

Z1  = Z1  + | (z3  + 2 <z4  - z3>  * zl) 

Similarly  for  subpanel  2, 

*2  = x2  + | (X1  + \ (*4  ~ xi)  - x2) 

^2 = ^2 + ! (yi + \ ^4  - yi>  - 

= z2  + | (Z1  + 2 (Z4  “ Zl>  ' Z2) 
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USAGE: 


This  is  shown  in  the  following  sketch, 


A weighting  factor  is  used  to  average  coordinates  of  centroids 
of  the  two  sub  panels  and  derive  coordinates  of  panel  centroid. 
The  weighting  factor  is  merely  the  ratio  of  the  area  of  sub- 
panel  1 to  the  panel  area  (see  subroutine  AREAP),  That  is, 

x = Xg  + R(xj^  - x2) 

y = Y2+  R<yi  - y2) 

z = z2  + R<zx  - z2) 

and, 


This  is  shown  below, 


DIMENSION  X(16,  16),  Y(16,  16),  Z(16,  16),  R(15,  15), 
XC(15,  15),  YC(15 , 15),  ZC(15 , 15) 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


X 

Y 

Z 


= x,  y,  and  z-coordinates  of  panel  corner 
points. 


R = Ratio  of  subpanel  area  to  panel  area. 


XC 

YC 

ZC 


=x-,  y-,  and  z-coordinates  of  panel 
centroid. 


CALL  CENTRD  (X,  Y,  Z,  R,  XC,  YC,  ZC,  NC,  NR) 

Input:  X x 

^ | (see  above) 

R J 

NC  = Number  of  panel  coliunns. 

NR  = Number  of  panel  rows. 


Output:  XC 
YC 
ZC 


(see  above) 


None 

None 

29810  =4528 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 


FORTRAN  IV  Subroutine  CHECK 

To  check  if  a sequence  |x^  of  numbers  is  monotonic  in- 
creasing (or  decreasing). 

The  given  sequence  { Xj } can  be  one  of  four  types: 

1)  Monotonic  increasing;  i.e. , ixj+i 

2)  Strictly  monotonic  increasing;  i.e.,  x^  < x1+1 

3)  Monotonic  decreasing;  i.  e. , > xi+1 

4)  Strictly  monotonic  decreasing;  i.e. , xj  > xi+1 

The  program  calling  sequence  includes  a code  that  indi- 
cates which  type  the  sequence  should  be.  The  program 
consists  of  a "do-loop"  involving  an  "if"  statement  that 
checks  the  sequence  accordingly. 

CALL  CHECK  (X,  N,  K,  L,  N6) 

Input:  X = Sequence  to  be  checked. 

N = Number  of  elements  in  sequence  |x^ . 

K = Code  indicating  sequence  type  that 

should  be.  IfK  = l,  |xj  J should  be  mono- 
tonic increasing  sequence.  If  K = 2,  {xj} 
should  be  strictly  monotonic  increasing 
sequence.  If  K=  -1,  {xjJ  should  be  mono- 
tonic decreasing  sequence.  If  K = -2,  |x^| 
should  be  strictly  monotonic  decreasing 
sequence. 

N6  = Output  tape  unit. 

Output:  L = Error  code.  If  L = 0,  |x||  successfully 
checked.  If  L = 1,  error  occurred. 


None 


See  above 
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I 


RESTRICTIONS : The  sequence  |x|J  must  be  a sequence  of  floating  point 

numbers. 

STORAGE:  23710  = 355g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 


FORTRAN  IV  Subroutine  CHORDW 

To  calculate  the  length  of  a streamwise  chord  through  the 
wing  panel  control  point. 

The  program  calculates  the  length  of  the  streamwise  chord 
by  use  of  a basic  distance  formula. 

The  chord  is  located  by  construction  of  a streamwise  plane 
(A)  normal  to  the  plane  of  the  panel  and  passing  through  the 
panel  control  point.  This  is  shown  in  the  following  sketch: 


The  line  of  intersection  of  this  plane  and  the  original  panel 
is  the  desired  chord,  and  the  chord  length  is  calculated, 

L = Xt  - xf 

COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) 

COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  NPER1 

NPLN1 

COMMON  /COM2/  (See  subroutine  WING) 

Input:  XCOR 

YCOR 
ZCOR 
YCON 

Output:  CHORD 
CALL  CHORDW 

POLXN 
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ERROR  RETURNS:  Error  messages  indicate  if  error  occurred  in  use  of  sub- 

routine POLXN  to  calculate  chord  intercepts. 


STORAGE: 


41810  = 642g 
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SUBJECT:  FORTRAN  IV  Subroutine  CLOK 


PURPOSE: 

To  find  the  time  of  day. 

METHOD: 

This  is  a dummy  subroutine  which  returns  blanks.  An 
appropriate  change  may  be  made  at  the  user's  installation 
to  return  the  true  time  and  date. 

USAGE: 

CALL  CLOK  (TIME,  DATE) 

Output:  TIME  = Time  of  day  (alphameric). 

DATE  = Date  (alphameric). 

subprogram! 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE^ jjvj-'';: 

M10  • 278 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  CNTRLB 

To  calculate  the  coordinates  of  a body  panel  control  point 
and  the  length  of  a streamwise  chord  through  the  control 
point. 

The  coordinates  of  a body  panel  control  point  are  calculated 
by  locating  a streamwise  chord  through  the  panel  centroid, 
determining  the  intercepts  of  this  chord  with  the  panel 
leading  and  trailing  edges,  and  using  a specified  input  con- 
stant to  average  these  coordinates  and  locate  the  control 
point  along  the  chord. 

To  find  the  chord  that  is  required,  the  program  constructs 
a streamwise  plane  (A)  normal  to  the  plane  of  the  panel 
and  through  the  panel  centroid.  For  example, 


The  intersection  of  this  plane  with  the  given  panel  defines 
the  chord  that  is  needed,  and  the  chord  length  is  calculated 
using  a standard  distance  formula.  For  the  above  example, 
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and, 

L 


xg)2  + (yt  - T|)2  + (zt 


The  control  point  coordinates  are  then  calculated  by  using 
an  input  constant,  c,  and  averaging  the  chord  intercepts. 


xcp  = XJ  + c ’ - xf> 

yep  = y f + c * - y*) 

zcp  = zf  + c * (*t  " 

As  noted  above,  the  location  of  the  panel  control  point  along 
the  streamwise  chord  is  controlled  by  an  input  constant,  c, 
(fraction) . In  addition  and  as  an  option,  a second  constant 
can  be  employed  as  input  to  change  the  spanwise  location 
of  the  chord  on  which  the  control  point  is  calculated.  For 
a case  in  which  the  option  is  not  used,  the  streamwise 
chord  is  constructed  through  the  panel  centroid;  thus  is 
located  at  approximately  50  percent  in  the  spanwise  direc- 
tion. But  for  a case  in  which  this  option  is  used,  this  span- 
wise  percent  value  can  be  changed  to  an  arbitrary  one, 
say  25  or  75  percent. 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 

description). 

CONTROL  /COMl/  (See  subroutine  PANEL) 

Input:  KODEC 

XPER 
YPER 
NPER1 
NPLN1 

Output:  KODEB 

COMMON  /COM2/  (See  subroutine  BODY) 

Input:  XCOR 

YCOR 
ZCOR 
YCEN 
ZCEN 

Output:  XCON 
YCON 
ZCON 
CHORD 

CALL  CNTRLB 

POLXN 

SQRT  (Built-in  function) 

Error  message  indicates  if  error  has  been  encountered  in 

use  of  subroutine  POLXN  to  calculate  chord  intercepts. 

484J0  = ?448 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  CNTRLW 

To  calculate  the  coordinates  of  a wing  panel  control  point. 

The  coordinates  of  a wing  panel  control  point  are  calculated 
by  defining  a constant,  c^,  that  locates  the  control  point  in 
the  spanwise  direction,  and  a second  constant,  C2,  that 
locates  it  in  die  streamwise  direction.  The  latter  constant, 
c2>  is  always  given  as  input  data,  though  the  former  con- 
stant, Cj,  can  be  given  as  input  or  calculated  by  the  pro- 
gram as  a function  of  the  centroid  location. 

The  two  constants  are  used  to  average  the  panel  corner 
point  coordinates  and  derive  the  control  point  coordinates. 
As  an  example,  a wing  panel  is  defined, 


(xi»yi»zi) . 

(x2»y 

(x,y,7) 

(W3) . 

(X4.y4.z4) 

The  constant,  C2.  is  given  as  input  and  the  constant,  cj_, 
is  either  given  as  input  or  calculated  by  the  program . For 
the  latter  case, 

— - 

y - yx 

^ J 

- yi 

These  constants  are  then  used  to  average  the  four  corner 
point  coordinates  and  obtain  the  control  point  coordinates, 

’f'fi 

, (x  cf>y  cp»2cp) 

(*t.  yt.zt) 
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USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


xcp  = *!  + C2  ' “ x|> 

Xj  = XI  + Cl  * (X2  - xi) 

xt  = x3  + cx  • (x4  - x3) 

yCp  = yf  + c2  • <yt  - y /) 

y i = Yi  + ci  * (y2  • yi> 

yt  = y3  + C1  ' (y4  " y3> 

zop  = H + c2  • <Zt  ' zl ) 

zf  “ Z1  + C1  ' ^Z2  " zl) 

2^.  = Z3  + Cl  * (z4  - Z3) 

COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) 

COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  KODEC 

XPER 
YPER 
KSTART 
KEND 
NPER1 
NPLN1 

COMMON  /COM2/  (See  subroutine  WING) 

Input:  XCOR 

YCOR 
ZCOR 
YCEN 

Output:  XCON 
YCON 
ZCON 

CALL  CNTRLW 


AMAX  (Built-in  function) 

Error  message  indicates  if  error  occurred  in  calculation 
of  panel  control  point. 


735i0  = 1337g 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  COEFS 


To  compute  the  axial  force  coefficient,  normal  force 
coefficient  and  pitching  moment  coefficient  on  a body. 

For  the  axial  force  coefficient, 


C = ± 
CA  S 


. dr 
dx 


/ 


2 ir 


v* 


for  the  normal  force  coefficient, 


dx; 


C 

CN  S 


2ir 

f 

o 


C cos  6 d 6 
P 


dx 


and  for  the  pitching  moment  coefficient, 


■'M 


o r 27T 


C cos  6 d 6 
P 


dx 


where  x — x-coordinate  of  body  station. 

r = Body  radius  at  body  station. 

dr  _ Body  surface  first  derivative  at  body 
dx  ” station. 

Cp  = Pressure  coefficient  at  a body  station 

and  on  a body  meridian  line. 

© = Angle  of  body  meridian  line. 

i - Body  length. 

S = Reference  area. 

* 

c = Reference  chord  length. 


For  each  coefficient,  subroutine  SIMUN3  is  first  used  to 
obtain  a value  for  the  integral  around  the  body  (with 
respect  to  $ ) at  each  body  station  and  then  for  the  inte- 
gral along  the  body  axis  (with  respect  to  x ) . This 
result  is  multiplied  by  the  appropriate  constant  to  obtain 
the  final  value. 
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USAGE: 


For  the  axial  force  coefficient: 

CALL  SCX  (XB,  R,  FD,  THETAB,  CPBB,  NFT,  NLT, 
NTHETA,  XP,  ZP,  C,  IRROR) 


For  the  normal  force  coefficient: 

CALL  SCN  (XB,  R,  FD,  THETAB,  CPBB,  NFT,  NLT, 
NTHETA,  XP,  ZP,  C,  IRROR) 

For  the  pitching  moment  coefficient: 

CALL  SCM  (XB,  R,  FD,  THETAB,  CPBB,  NFT,  NLT, 
NTHETA,  XP,  ZP,  C,  IRROR) 


DIMENSION  XB(55),  R(55),  FD(55),  THETAB(IO) , 
CPBB(10, 55) 

Input:  XB  = Array  of  x-coordinates  of  body 

stations. 

R = Array  of  body  radii  at  body  stations. 

FD  = Array  of  body  surface  first 

derivatives  at  body  stations. 

THETAB  = Array  of  0-angles  of  body  meridian 
lines. 


CPBB 

NFT  \ 
NLT  / 

NTHETA 


Array  of  pressure  coefficients. 
Index  codes. 

Number  of  body  meridian  lines. 


XP  \ _ x and  y coordinates  of  point  about 

ZP  j which  pitching  moment  coefficient 

is  to  be  computed. 


C 


Coefficient  (axial  force,  normal 
force  or  pitching  moment). 


IRROR  = Error  return 


= 0 — success 

= 0 — error  occurred  in  numerical 
integration  of  subroutine 
SIMUN3 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


RESTRICTIONS: 

STORAGE: 


SIMUN3 

COS  (Built-in-function) 

Three  types  of  errors  are  indicated.  If  fewer  than  three 
points  are  input  to  subroutine  SIMUN3,  IRROR  = 1.  If 
subroutine  SCAMP4,  which  is  called  by  subroutine 
SIMUNS,  detects  an  error,  IRROR  = 2.  If  subroutine 
SIMUN3  detects  an  error  in  calculating  the  integral  of 
the  function  defined  by  the  input  points,  IRROR  = 3. 
Otherwise,  if  the  call  is  successful,  IRROR  = 0. 

3 — (NLT-NFT  + 1)  ^ 55 

49110  = 7538 
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SUBJECT:  FORTRAN  IV  Subroutine  COMCU 

PURPOSE:  To  fit  a composite  cubic  through  n points  (xj,  yj)i.  e.  , 

a separate  cubic  between  each  pair  of  adjacent  points, 
such  that  the  n - 1 cubic  s are  so  determined  that  each 
matches  its  neighbors  in  function  value  and  in  the  first 
two  derivatives  . 

METHOD:  Rather  than  solve  simultaneously  for  the  4(n  - 1)  cubic 

coefficients,  the  approach  here  is  to  solve  simultaneously 
for  the  slopes  of  the  composite  cubic  at  the  given  n 
points.  Thus  a linear  system  of  order  n , rather  than 
4n  - 4,  is  involved.  It  can  be  shown  that  a necessary 
and  sufficient  condition  for  continuity  of  the  second 
derivative  is  that: 


<*!  + 1 - - 1 + 2<*i  + 1 - X1  - 1>4  + <xi  - xi  - I,yl  + 1 ' 

vwVr-^t ' x*  - i>2  <y* + 1 ' yi> + <x‘ + 1 ■ x‘)2  (y* ' y*  - « ] 


for  i = 2,  3,  . . . , n - 1. 

f 

This  yields  n - 2 equations  in  the  n unknowns,  y^,  i = 1, 
2,  ....  n.  For  the  1st  and  nth  equations  of  the  linear 
system,  the  boundary  conditions  on  y{  and  yn  are  used. 
This  has  been  generalized  to  permit  any  combination  of 
a given  y'  or  y"  at  the  end  points,  e.  g. , y{  and  yn  can  be 
given  as  the  boundary  conditions.  The  second  derivative 
of  a cubic  through  two  points  can  be  expressed  as  a func- 
tion of  the  first  derivatives  and  of  the  given  point 
coordinates  as  follows: 


Whether  the  boundary  conditions  involve  first  or  second 
derivatives  (or  both) , and  no  matter  what  the  spacing  of 
the  xi  (so  long  as  the  xt  form  a strictly  monotone 
sequence) , the  coefficient  matrix  of  the  linear  system  is 
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tridiagonal  (all  elements  are  zero  except  on  the  principal 
diagonal,  the  first  subdiagonal,  and  the  first  superdiag- 
onal); When  n is  large,  a considerable  time  saving  and 
an  enormous  storage  saving  can  result  if  the  special 
structure  of  this  matrix  is  taken  advantage  of.  Hence 
this  subroutine  stores  the  matrix  elements  in  4n  loca- 
tions (as  opposed  to  n^  ) and  then  solves  the  system. 

The  actual  coefficients  of  the  n - 1 cubic  s of  the  com- 
posite cubic  are  not  found  by  COMCU.  Since  on  any  sub- 
interval X}  , Xj  + i a cubic  is  uniquely  determined  by 
the  known  two  points  and  two  slopes,  the  calling  program 
can  find  the  four  coefficients  of  each  cubic  independently 
and  may  often  need  to  do  so  for  only  one  of  the  n - 1 
cubios.  In  any  case,  the  subroutine  CUBIC2  specifically 
finds  a cubic,  given  two  points  and  the  slope  at  each  point. 

CALL  COMCU  (DA,  DB,  S,  X,  Y,  L,  M,  N,  NDA,  NDB) 

DIMENSION  8(400),  X(400),  Y(40Q) 

Input:  X = Array  of  x-abscissae  of  input  points. 

Y = Array  of  y-ordinates  of  input  points. 

N = Number  of  input  points. 


NDA  = Order  (1  or  2)  of  derivative  at  X(l) . 
NDB.  = Order  (1  or  2)  of  derivative  at  X(N) . 
DA  = Value  of  derivative  at  X(l) . 


DB  = Value  of  derivative  at  X(N) . 

L = Code. 


Output:  S 
M 


= 1,  if  single  precision  is  to  be  used. 
= 2,  if  double  precision  is  to  be  used. 
= Array  of  first  derivatives. 

= Error  return 
= O — success 


f O — error  detected 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


None 

If  overflow  occurred,  M = 1.  Otherwise,  M = 0. 

The  x-abscisBae  must  form  a strictly  monotone 
sequence.  N ^ 400 

149610  -■  2730g 
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SUBJECT:  FORTRAN  IV  Subroutine  COMP 

PURPOSE:  To  compute  the  velocity  components  at  an  array  of  points. 

METHOD:  An  array  of  points  is  input,  and  calls  to  velocity  computa- 

tion routine  are  made. 

USAGE:  DIMENSION  GP(3,  IC),  VLS  (4,  IC) 


CALL  COMP  (GP,  VLS,  IC) 

Input:  IC  = Number  of  points  in  the  GP  array. 

GP(1,  I)  = x-coordinate  of  Ith  point. 

GP(2,  I)  = y-coordinate  of  I**1  point. 

GP(3,  I)  = z- coordinate  of  I^1  point. 

Output:  VLS(1,  I)  = u-velocity  component  at  I^*1  point. 

VLS(2,  I)  = v- velocity  component  at  I^1  point. 
VLS(3,  I)  = w- velocity  component  at  I^1  point. 
VLS(4,  I)  = Cp-velocity  component  at  1^  point. 


SUBROUTINE 

CALLED: 

LACKEY 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

00 
CD 
h- 1 
O 

II 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  CP 

To  compute  the  pressures  coefficients  by  either  the 
linear  or  nonlinear  equation,  given  the  velocity  compo- 
nents in  the  x , y , and  z directions  at  each  of  the 
panels. 

For  the  linear  pressure  coefficient* 

Cp  = -2u 

and  for  the  nonlinear  pressure  coefficient, 

2 2 2 2 
C - -2u  +B  u - v -w 
P H 

where 

u = velocity  component  in  the  x-direction. 

v = velocity  component  in  the  y-direction. 

w = velocity  component  in  the  z-direction. 

/3  = M2  - 1 

CALL  CP  (K,  NP,  XMACH,  CPCALC,  U,  V,  W,  CPP) 
DIMENSION  U(NP),  V(NP),  W(NP),  CPP(NP) 

= Code 

= o,  for  wing  panels. 

= 1,  for  body  panels. 

= Number  of  panels. 

= Mach  number. 

= Calculation  option. 

= 0.,  calculation  of  pressure 

coefficients  to  use  linear  equation. 

= 1.,  calculation  of  pressure 
coefficients  to  use  nonlinear 
equation. 


Input:  K 

NP 

XMACH 

CPCALC 
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U = Array  of  velocity  components  in 

x-direction. 

V = Array  of  velocity  components  in 

y-direction. 

W = Array  of  velocity  components  in 

z- direction. 

Output:  CPP  = Array  of  pressure  coefficients. 

SUBPROGRAMS 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 

STORAGE:  15610  = 234g 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  CRNRB 

To  calculate  body  panel  (and  secondary  panel)  corner  point 
coordinates. 

In  general,  a body  panel  is  defined  by  four  corner  points. 

A program  restriction  requires  either  that  the  panel  have 
streamwise  inboard  and  outboard  edges,  or  that  it  be  sub- 
divided so  that  its  secondary  panels  have  streamwise  edges. 
To  satisfy  this  condition,  additional  points  are  located  on 
the  panel  leading  and/or  trailing  edge. 

The  program  calculates  the  four  panel  corner  points  by 
intersecting  with  the  body  meridian  lines  a series  of  par- 
allel transverse  vertical  (cutting)  planes.  The  equations 
for  these  planes  have  the  general  form, 

x — C|  0, 

for  which  Cj  is  the  i^  intercept  as  given  on  input  cards. 

This  is  shown  in  the  following  sketch: 


The  program  calculates  the  additional  panel  points  by 
constructing  planes  normal  to  the  plane  of  the  panel  and 
through  a panel  corner  point,  and  intersecting  these  planes 
with  the  panel  leading  and  trailing  edges.  At  most,  two 
such  constructions  are  necessary  for  each  of  the  two 
required  points.  To  obtain  the  first  point,  the  program 
constructs  a streamwise  plane  (A)  normal  to  the  panel  trail- 
ing edge  and  through  the  inboard  leading  edge  corner  point 
and  attempts  to  intersect  this  plane  with  the  panel  trailing  edge: 
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If  an  intersection  with  the  trailing  edge  is  obtained,  this 
point  is  defined  to  be  the  first  of  the  two  required  points. 
Should  no  intersection  be  Calculated,  the  program  then 
constructs  a streamwise  plane  normal  to  the  panel  leading 
edge  and  through  the  inboard  trailing  edge  corner  point  and 
attempts  to  intersect  this  plane  with  the  panel  leading  edge: 


If  the  previous  construction  has  failed,  then  this  construc- 
tion yields  an  intersection,  and  the  point  is  defined  to  be  the 
first  of  the  two  required  points.  The  calculations  used  to 
obtain  the  second  of  the  two  points  are  identical  to  those 
given  above  except  that  the  planes  that  are  constructed 
pass  through  outboard  rather  than  inboard  comer  points. 

As  both,  either,  or  neither  of  these  two  points  can  occur 
on  the  panel  leading  (or  trailing)  edge,  four  panel  con- 
figurations are  possible,  and  a code  is  assigned  for  each 
panel.  These  codes  are  the  following: 
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These  codes  are  used  in  later  subprograms. 

In  certain  cases  the  body-wing  intersection  line  does  not 
coincide  with  a body  meridian  line,  and  an  additional 
meridian  line  is  constructed.  In  the  intersection  region 
proper,  points  on  this  additional  line  are  defined  to  be  the 
intersection  points;  elsewhere,  fore  and  aft  of  the  inter- 
section region,  points  are  obtained  by  averaging  the 


corresponding  points  on  the  two  adjacent  body  meridian 
lines.  This  is  shown  in  the  following  sketch: 
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USAGE: 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description). 

Input:  NWRTTE 

COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  KOPTB 

XI 

YI 

ZI 

NPER 

NPER1 

NPLANE 

NPLN1 

Output:  KSTART 
KEND 

COMMON  /COM2/  (See  subroutine  BODY) 

Input:  NPLNB 

NPLNW 
JLEAD 
JTRAIL 
NI*TS 
X 

■.  y 

. z 

XCEPT 

XCEPTW 

YCEPTW 

ZCEPTW 

Output:  IMID 

KPANEL 

XCOR 

YCOR 

ZCOR 

XINT 

YINT 

ZINT 

CALL  CRNRB 
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SUBPROGRAM  POLXN 

CALLED: 

ERROR  RETURNS:  Error  messages  indicate  if  panel  or  secondary  panel 

comer  points  not  correctly  calculated. 

STORAGE:  128210  = 2402g 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  CRNRW 

To  calculate  wing  panel  (and  secondary  panel)  corner  point 
coordinates. 

In  general,  a Wing  panel  is  defined  by  four  corner  points.  To 
satisfy  a program  restriction  that  either  a panel  have  stream- 
wise  inboard  and  outboard  edges  or  that  it  be  subdivided  so 
that  its  secondary  panels  have  streamwise  edges,  an  additional 
point  is  determined  in  the  following  two  cases: 

1)  For  panels  on  the  inboard  column  if  the  body  and  wing 
intersect  in  a nonstreamwise  line; 

2)  For  panels  on  the  outboard  column  if  the  outboard 
wing  edge  is  a nonstreamwise  edge. 

All  other  panels  have  streamwise  edges  and  are  not  sub- 
paneled. 

The  program  calculates  the  four  panel  corner  points  by 
intersecting  With  the  wing  percent  chord  lines  a series  of 
vertical  (cutting)  planes.  The  equations  for  these  planes 
have  the  general  form, 

y - ci  = °» 

for  which  c*  is  the  i01  intercept  as  given  on  input  cards. 

This  is  shown  in  the  following  sketch. 
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The  program  calculates  the  additional  panel  point,  i.i  those 
cases  indicated  above , by  constructing  planes  nor mi  1 to 
the  plane  of  the  panel  and  through  a panel  corner  point,  ana 
by  intersecting  these  planes  with  the  panel  leading  or 
trailing  edges.  Two  such  constructions,  at  most,  are 
required  to  obtain  this  point.  The  program  first  con- 
structs a plane  (A)  normal  to  the  panel  and  through  a 
leading  edge  corner  point  and  attempts  to  intersect  this 
plane  with  the  panel  trailing  edge. 


If  an  intersection  with  the  trailing  edge  is  found,  it  is 
then  defined  to  be  that  additional  panel  point.  If  no 
intersection  is  calculated,  the  program  constructs  a 
plane  (B)  normal  to  the  panel  and  through  a trailing 
edge  corner  point  and  attempts  to  intersect  this  plane 
with  the  leading  edge. 


As  this  additional  point  can  be  on  either  the  leading  or 
trailing  edge  a code  is  determined  and  assigned  for  any 
such  panel. 
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USAGE:  COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 

description). 

Input:  NWRITE 

COMMON  /COM1  / (See  subroutine  PANEL) 

Input:  KOPTW 

KINT 
XI 
YI 
ZI 

NPER 

NPER1 

NPLANE 

NPLN1 

Output:  KSTART 
KEND 

COMMON  /COM2  / (See  subroutine  WING) 

Input:  IJ 

NPTS 

X 

Y 

Z 

KPNT 

VALUE 

YCEPT 

SLOPE 

Output:  KPANEL 
XCOR 
YCOR 
ZCOR 
XINT 
YINT 
ZINT 
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CALL  CRNRW 

subprogram 

CALLED?  POLXN 

ERROR  RETURNS:  Error  messages  indicate  if  panel  (or  secondary  panel) 

corner  points  not  calculated. 

STORAGE:  926l0  = 1636g 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  CUBIC2 

To  fit  a cubic  to  two  points,  being  given  the  slope  at  each. 

The  subroutine  sets  up  the  system  of  four  simultaneous 
equations  expressing  the  four  given  conditions  and  solves 
it  for  fiie  coefficients  of  the  cubic. 

CALL  CUHC2  (X,  Y,  D,  C,  M) 

DIMENSION  X(2),  Y(2),  D(2),  C(4) 

Input;  X l ® Array  of  x-coordinates . 

Y = Array  of  y-coordinates . 

D - Array  of  first  derivatives. 

Output:  C = Array  of  cubic  coefficients. 

M * Error  return. 

= 1 — success 

? 1 — error  detected 

None 

If  M = 2>  overflow  occurred.  If  M = 3,  X(l)  = X(2). 
Otherwise  call  is  successful  and  M = 1. 

X(l)  A X(2) 

222g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  CVEL 

To  compute  the  velocity  components  due  to  a given  pressure 
difference,  given  the  velocity  components  resulting  from  a 
unit  pressure  difference  across  panels. 

The  velocity  components  resulting  from  a unit  pressure  dif- 
ference across  the  influencing  panels  are  computed  and 
stored  on  tape  previous  to  calling  of  this  subroutine.  Then 
the  velocity  components  resulting  from  a given  pressure 
difference  across  the  influencing  panels  are  found  by 

N 

H = I »lj  • PJ 

)=i 

N 

vi  = S vij  • p3 

3=1 

N 

wi  • Z wij  • pj 

3=1 

where  Uy,  Vy , and  Wy  are  the  velocity  components  in 
the  x,  y,  andz  directions  respectively  at  panel  i induced 
by  panel  J,  and  pj  is  the  given  pressure  differences  across 
the  influencing  panel. 

CALL  CVEL(M,  N,  NT,  A,  B,  C,  CL,  U,  V,  W) 

DIMENSION  A(M),  B(M),  C(M),  U(N),  V(N),  W(N) 

Input:  M = Number  of  influenced  panels. 

N = Number  of  influencing  panels. 

NT  = Logical  tape  number  on  which  the  velocity 
components  due  to  unit  pressure  differences 
are  stored. 

A = Dummy  array  used  by  the  subroutine. 

B = Dummy  array  used  by  the  subroutine. 

C = Dummy  array  used  by  the  subroutine. 

CL  = Array  of  given  pressure  differences. 
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Output:  U = Array  of  velocity  components  in  the  x-direction. 

V = Array  of  velocity  components  in  the  y-direction. 
W = Array  of  velocity  components  in  the  z -direction. 

SUBPROGRAM 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 

STORAGE:  12910  = 201g 
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SUBJECT:  FORTRAN  IV  Subroutine  DATE 

(See  subroutine  FDATE) 
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SUBJECT: 

PURPOSE; 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS; 

RESTRICTIONS: 

STORAGE 


FORTRAN  IV  Subroutine  DCPD 

To  compute  the  pressure  difference  across  the  wing  panels . 

Hie  pressure  difference  across  a wing  panel  i is  given  by: 

NM 

PWi  = £ ARy  1#  nWi 
j=i 

where  A^-^=  The  inverse  of  the  reduced  aerodynamic 
influence  coefficients  matrix. 

nW  = The  velocity  component  of  the  wing,  normal 
to  the  x-axis. 

CALL  DCPD  (NM,  NT  APEX,  A,  ALPHAM,  CLM) 

DIMENSION  A(NM),  ALPHAM  (NM) , CLM(NM) 

= Number  of  wing  panels. 

= Logical  tape  number,  of  which 
Ap"l  is  stored. 

= Dummy  array  used  by  the  sub- 
routine. 

= Array  velocity  components  on 
wing  panels  normal  to  the 
x-axis. 

= Array  of  the  pressure  difference 
across  wing  panels. 

None 

None 

90^o  = 132 g 


Input:  NM 

NT APEX 

A 

ALPHAM 

Output:  CLM 

None 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  DCPI 

In  the  presence  of  a wing,  to  compute  the  pressure  differ 
ence  across  a body  panel. 


The  pressure  difference  is  given  by: 

-1 


where 


— ABBii 
j=l  13 


NW 

nBj  + £ Eij 

3 3=1  J 


PWi 


“B 

E 


-1 


= The  inverse  of  a partition  of  the  aero- 
dynamic influence  coefficients  resulting 
from  the  influence  of  the  body  on  the  body 

= The  velocity  component  normal  to  the 
x-axis,  on  the  body. 

s The  matrix  formed  by  the  product. 


abb  >abw 

where  A_w  = The  partition  of  the  aerodynamic 
influence  coefficients  matrix  re- 
sulting from  the  influence  of  the 
wing  on  the  body. 

p = The  pressure  difference  across 
^ the  wing  panels. 


CALL  DCPI  (NB,  NW,  NT  APEX , A,  ALPHAB,  CLW, 

CLB) 

DIMENSION  A(NW),  ALPHAB(NB),  CLW(NW),  CLB(NB) 

Input:  NB  = Number  of  body  panels. 

NW  = Number  of  wing  panels. 

NTAPEX  = Logical  tape  number  on  which  ABB_1 
and  E are  stored. 

A = Dummy  array  used  by  the  subroutine 

ALPHAB  = Array  of  velocity  components  on  the 
body,  normal  to  the  x-axis. 

CLW  = Array  of  the  pressure  difference 
across  wing  panels. 

Output:  CLB  = Array  of  the  pressure  difference 

across  the  body  panels . 
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SUBPROGRAM 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS  None 

STORAGE:  I43j0*  217g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  DEFEN1 

To  write  records  on  the  Geometry  Definition  binary  tape. 

The  format  of  the  binary  tape  to  be  written  is  shown  in 
Appendix  D.  Each  time  that  DEFEN1  is  called  it  writes 
two  records.  Record  A consists  of  ten  fixed -point  words. 
Record  B contains  either  nine  words  or  K - J + 1 words, 
where  K and  J are  given.  A ten-word  array,  IREC,  is 
given.  If  IREC(3)  t 0,  then  record  B consists  of  nine  words, 
which  are  zeros,  and  record  A has  the  following  format: 


word 

1 

IREC(l) 

word 

2 

0 

word 

3 

IREC(3) 

words 

4-10 

0 

However,  if  IREC(3)  = 0,  then  IREC  is  written  as  record  A 
and  the  specified  part  of  a given  array  is  written  as  record  B. 

DIMENSION  B(l),  IREC(10) 

CALL  DEFEN1  (B,  J,  K,  LTAPE , IREC) 

Input:  B = B(J)  through  B(K)  is  to  be  written  on 

LTAPE. 


J = Subscript. 

K = Subscript. 

LTAPE  = Tape  number. 

IREC  = Array  to  be  written  on  LTAPE  (see 

METHOD,  above). 


None 

None 

LTAPE  is  assumed  to  be  correctly  positioned. 
12810  - 20°8 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  DEFEND 

To  prepare  records  for  the  Geometry  Definition  tape  and 
to  monitor  tape  writing. 

This  subroutine  is  used  by  subroutine  GEOMD  to  transfer 
data  from  core  to  tape.  If  wing-body  intersections  are  not 
requested,  GEOMD  calls  DEFEND  at  the  end  of  the  case 
to  write  records  1-18  (see  Appendix  D) . But  if  intersec- 
tions are  requested,  GEOMD  first  calls  DEFEND  to  write 
records  1-10,  then  finds  intersections,  and  finally  calls 
DEFEND  again  to  write  records  11-18. 

DIMENSION  B(l),  LK(3,  9) 

LOGICAL  LGDEF(3,  6),  LGTAPE 

CALL  DEFEND  (B,  LK,  LO,  LTAPE,  LGDEF,  LGTAPE, 
INTWB) 

Input:  B = Storage  buffer  for  variable-length 

arrays. 

LK  = Array  that  describes  contents  of  B. 

Consider  LK(i,  j).  The  index  j refers 
to  a data  array  as  follows: 

i Data  array 

1 Upper  wing  percent  lines 

2 Lower  wing  percent  lines 

3 Upper  wing  percent  lines  (part 
outside  body) 

4 Lower  wing  percent  lines  (part 
outside  body) 

5 Body  meridian  lines 

6 Body  stations 

7 Wing  planform  (leading  and  trail- 
ing edge  points) 

8 Upper  wing-body  intersections 

9 Lower  wing-body  intersections 

A data  array  is  stored  starting  in 
B(LK(1,  j)).  The  number  of  elements 
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LO 

LTAPE 

LGDEF 

LGTAPE 

INTWB 


Output:  LGDEF 

SUBPROGRAM 

CALLED: 

DEFEN1 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

373jq  = 565g 

in  the  data  array  is  LK(3,  j).  The 
number  of  percent  lines  (j  =1,  2,  3, 

4)  or  meridian  lines  (J  = 5>  is  LK(2,  j). 
The  number  of  airfoils  is  LK(2,  7). 
LK(2,  j)  is  not  used  for  j = 6,  8,  9. 

= Output  tape  number. 

= Binary  tape  number. 

= Logical  array  of  problem  status  (see 
subroutine  GEOMD). 

= .TRUE,  if  records  are  to  be  written 
on  LTAPE , . FALSE . if  not. 

= If  INTWB  < 0,  LTAPE  is  to  be 
rewound  and  records  1-10  written. 

If  INTWB  > 0,  records  11-18  and 
an  EOF  are  to  be  written.  If  INTWB 
= 0,  records  1-18  and  an  EOF  are  to 
be  written. 

= If  LGDEF  0.,  i)  and  LGDEF  (2,  i)  are 
both  true,  LGDEF (3,  i)  is  set  to 
.TRUE,  to  indicate  that  the  corres- 
ponding data  array  has  been  written 
on  LTAPE. 
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SUBJECT: 

PURPOSE: 


METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


STORAGE: 


FORTRAN  IV  Function  DERIV1 

To  find  the  first  derivative  of  the  quadratic  through  three 
at  a specific  one  of  these  points.  This  pro- 
^ J good^roxi^pn  to  the  slope  of  a function  at 
inibpx^*  PartfCularly  **  the  two  points  used  are 

2‘^o^riiSPlLtindS  'he  '“‘0“  Po'^omial  of  do- 
S?  he  ^ven  points  then  evaluates  its  first 
derivative  at  the  specified  point. 

D = DERIV1  (X,  Y,  N) 

DIMENSION  X(3).  Y(3) 

Input:  X = Array  of  x-coordinates. 

Y = Array  of  y-coordinates. 

N = Code. 

= 1,  2 or  3 indicating  point  at  which 
derivative  is  desired. 


None 

None 

The  x-coordinates  must  be  distinct,  but  need  not  be  in 
any  order  of  evenly  spaced. 

m10  = 201, 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Function  DERIV2 

To  find  the  second  derivative  of  the  cubic  through  four 
given  points  ( xj,  yj  ) at  an  arbitrary  point  whose  x- 
coordinate  is  given. 

The  subprogram  simply  finds  the  unique  polynomial  of 
degree  three  through  the  given  points,  then  evaluates 
its  second  derivative  at  the  desired  x , which  need  not 
be  one  of  the  four  given  Xj  . 

D = DERIV2  (X,  Y,  XX) 

MMENSION  X(4),  Y(4) 

Input:  X = Array  of  x-coordinates. 

Y = Array  of  y- coordinates. 

XX  - x-coordinate  of  point  at  which  second 
derivative  is  desired. 


None 

None 

The  x-coordinates  must  be  distinct  but  can  be  in  any 
order  and  unevenly  spaced. 

167 10  = 2478 
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SUBJECT: 

PURPOSE: 

METHOD; 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  DERIVS 

Given  a set  of  n points  ( x*  , yi  ) , to  obtain  the  first 
anxi  second  derivatives  at  each  of  the  points. 

Subroutine  SCAMP4  is  used  to  fit  a chain  of  cubic s of 
the  general  form: 

y = Co  + GiX  + C2x2  + CgX3 

to  the.  set  of  points  and  calculate  the  first  derivative  at 
each  point  from  the  equation: 

o 

y*  = Cj  + 2CgX  + 3^3x  * 

The  second  derivative  at  each  point  is  obtained  from  the 
equation: 

y"  = 2C2  + 6C3x. 

CALL  DEMVS  (XB,  R,  NBODYS,  FD,  SD) 

DIMENSION  XB(NBODYS),  R(NBODYS),  FD(NBODYS) , 
SD(NBODYS) 


Input: 

XB 

= Array  of  x-abscissae. 

R 

= Array  of  y-ordinates. 

NBODYS 

= Number  of  points. 

Output: 

FD 

= Array  of  first  derivatives. 

SD 

= Array  of  second  derivatives. 

SCAMP4 

None 

The  array  of  x-abscissae  must  form  a strictly  monotone 
sequence. 

301io  = 4558 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  Function  DBPTA 

To  find  the  distance  between  two  points  in  N-space 
Standard 

D = DJSPTA  (P,  Q,  N) 

DIMENSION  P(N),  Q(N) 

Input:  P - Array  of  coordinates  of  one  point. 

Q = Array  of  coordinates  of  other  point. 
N = Dimension  of  space. 

Output:  D - Distance  between  points  P and  Q. 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


SQRT  (Built-in  function) 
None 
N > 0 


5010  ‘ 628 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  DMAXL 

Given  a set  of  points  in  3-space,  to  find  which  point  is 
farthest  from  the  line  through  the  end-points. 

Let  Pi  and  Pn  bejthe  first  and  last  points,  and  let  u be 
a unit  vector  from  Pi  to  Pjj*  For  each  intermediate  point 
Pj,  find  the  vector  v = Pj  - Pi.  Then  the  distance  from 
Pj  to  the  line  Pi  Pjj  is  the  magnitude  of  the  cross-product 
of  u and  v The  point  Pj  farthest  from  the  line  is  selected. 
If  there  is  more  than  one  such  point,  the  first  is  selected. 

DIMENSION  P(3,  N),  U(3) 

CALL  DMAXL  (P,  N,  DIST,  J,  U,  NU) 

Input:  P = Array  of  points. 

N = Number  of  points  in  P. 

Output:  DIST  = Distance  from  point  Pj  to  the  line  Pi  Pn- 

J = Subscript  of  point  Pj  (that  is , the  desired 
point  is  P(i,  J),  i = 1,  3). 

U = Unit  vector  directed  from  Pj^  to  Pjj. 

NU  = Error  indicator,  which  is  zero  for  success. 

UVECN 

VCROS 

NU  = 1 if  N = 2, 

= -1  if  N < 2, 

= -2  if  Pi  and  P^  are  coincident. 

None 

139l0  = 2138 
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SUBJECT:  FORTRAN  IV  Subroutine  ELLIPR 

PURPOSE:  Given  the  horizontal  and  vertical  semi-axes  of  a rectangular 

ellipse  and  the  angle  of  a radius  vector  to  find  the  length  of 
the  vector  and  the  corresponding  point  on  the  ellipse. 

METHOD:  The  sine  and  cosine  of  the  angle  (measured  in. a clockwise 

direction  from  the  + y axis)  are  given.  The  required  quan- 
tities axe  computed  in  a standard  manner. 


USAGE: 

CALL  ELLIlPR  (A,  B,  SIN,  COS,  RHO,  X,  Y,  NU) 

Input:  A = Horizontal  semi-axis. 

B = Vertical  semi-axis 

SIN  = Sine  of  angle. 

COS  = Cosine  of  angle. 

Output:  RHO  = Length  of  radius  vector. 

X = x-coordinate. 

Y = y-coordinate. 

NU  = Error  code,  which  is  zero  if  successful. 

SUBPROGRAM 

CALLED: 

SQRT  (Built-in  function) 

ERROR  RETURNS: 

NU  = 1 if  either  of  the  semi-axes  is  zero. 

NU  = 2 if  the  radius  vector  has  zero  length.  (This  indr 
cates  that  SIN  = COS  = 0.) 

RESTRICTIONS: 

None 

STORAGE: 

M10  = m8 
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SUBJECT:  FORTRAN  IV  Subroutine  ENRYCH 

PURPOSE:  Given  ft  set  of  points  that  lie  on  a smooth  curve,  to  inter- 

polate additional  points  so  spaced  that  between  each  pair  of 
points  the  distance  from  the  chord  to  the  assumed  interpola- 
tion curve  is  less  than  a given  tolerance. 

METHOD:  For  each  set  of  four  consecutive  points,  subroutine  OPTIM3 

is  called  to  interpolate  additional  points.  Because  OPTLM3 
measures  error  between  a chord  and  arc  in  a y direction , 
x and  y are  reversed  for  each  set  of  four  consecutive  points 
if  the  range  of  y is  greater  than  the  range  of  x.  Also,  signs 
are  reversed  if  necessary  to  make  the  equivalent  X£  strictly 
increasing  before  calling  OPTIM3.  The  inverse  operations 
are  performed  after  OPTIM3  does  the  interpolation. 

USAGE:  DIMENSION  A(NI),  B(NI),  C(NO),  NU(3) 

CALL  ENRYCH  (A,  B,  NI,  EPS,  C,  NO,  NU) 

Input:  A = Array  of  independent  variable  coordinates. 

B = Array  of  dependent  variable  coordinates. 

NI  - Number  of  pairs,  Aj,  Bi. 

EPS  = Arc -chord  tolerance. 

NO  = Length  of  array  C. 

NU(2)  = Logical  output  tape  number  on  which  to 
write  error  comments,  if  any. 

NU(3)=  Error  message  limiter  and  counter.  If  an 
error  occurs  for  which  a message  is  nor- 
mally written,  NU(3)  is  first  reduced  by 
one.  The  message  is  then  written  only  if 
both  NU(2)  and  NU(3)  are  greater  than  zero. 

Output:  C = Array  of  A i , Bi  pairs  interspersed  with 

interpolated  pairs.  If  NI  < 4 or  EPS  < 0, 
no  interpolation  takes  place;  then  C con- 
tains Ai,  Bi,  NO  = 2*NI,  and  NU  = 0. 

NO  = Number  of  elements  in  the  C array. 

NU  = 0 — success. 

= 2 — at  least  one  set  of  four  consecutive 
points  (Ai,  Bi)  is  not  strictly  mono- 
tonic in  either  x or  y. 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


STORAGE: 


= 3 — more  than  199  interpolated  points  are 
required  between  two  consecutive 
points  (Aj,  Bi)  in  order  to  satisfy  the 
given  value  of  EPS.  This  may  be  due 
to  (1)  a very  small  value  of  EPS,  or 
(2)  a "wild"  interpolating  cubic  between 
two  points  (points  too  "rough"  or  too 
far  apart  in  that  region). 

= 4 — C array  is  too  small. 

= 5 — the  input  value  of  NO  is  less  than 
2*NI.  . 


OPTTM3 

If  an  error  is  encountered  in  any  interpolating  interval 
(NU  = 2 or  3)  , an  error  message  is  written  JfNU(2)  and 
NU(3)  > 0,  no  points  are  interpolated  in  that  interval,  and 
the  routine  continues.  The  value  of  NU  returned  is  that  of 
the  last  error  encountered  (if  any). 

For  every  set  of  four  consecutive  points,  either  the  inde- 
pendent variable  coordinates  or  the  dependent  variable  co- 
ordinates must  be  strictly  monotonic.  Since  OPTTM3  uses 
cubic  or  quadratic  interpolation,  some  input  arrays  may 
cause  rather  extreme  swings  in  the  output  array.  This  may 
usually  be  corrected  by  supplying  more  input  points  in  the 
swing  region.  In  general,  the  output  array  of  points  will 
lie  on  a curve  that  maintains  first  derivative  continuity. 
However,  this  may  not  be  true  if  an  x,y  reversal  (see 
METHOD,  above)  is  required  for  some  but  not  all  sets  of 
four  points;  appropriate  scaling  of  one  variable  before  entry 
(preferably  by  a power  of  2)  will  ensure  that  either  no  set 
or  all  sets  of  four  consecutive  points  will  be  reversed. 


975 


10 


17178 
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SUBJECT:  FORTRAN  IV  Subroutine  EVAL 

PURPOSE:  To  compute  the  matrix  of  the  aerodynamic  influence 

coefficients,  the  velocity  components  due  to  a surface 
distribution  of  vorticity,  and  the  velocity  components 
due  to  a surface  distribution  of  sources  in  the  reference 
plane  of  the  wing. 

METHOD:  The  equations  in  this  subroutine  are  given  in  detail  in  the 

Appendix  B of  Part  I. 

USAGE:  CALL  EVAL  (NI,  XCPT.THKW) 

COMMON  DATE(2),  NTAPEA, NTAPEB, NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO,  NBODY, 
NWING,  XMACH,  SYM,  RACE 

COMMON /BLOCK/ALPHAS  (210),  AREA  (210),  A (210), 
ALPHAC  (110),  ALPHAT  (110),  CHORD  (210),  ISYM, 
NPART  (210),  NPANEL,  NROW  (2),  THETA  (210),  TAIL, 
U (210),  V (210),  VPM  (210),  VV  (210),  VPMM  (210), 

W (210),  WPM  (210),  WW  (210),  WPMM  (210),  X (210, 

3,  4),  XBAR  (210),  XC  (210),  Y (210,  3,  4),  YEAR  (210), 
YC  (210),  Z (210,  3,  4),  ZBAR  (210),  ZC  (210) 


Input:  NI 

= Index  that  indicates  start  of  in- 
fluencing panels. 

XCPT 

= Array  of  panel  control  point 
coordinates. 

THRW 

= 0. , indicates  the  aerodynamic  in- 
fluence coefficients  and  velocity 
components  due  to  vortices  are  to 
be  computed. 

4 0.  indicates  the  velocity  compo- 
nents due  to  wing  sources  are  to 
be  computed. 


XMACH  = Mach  number. 

SYM  = Configuration  symmetry  condition. 

RACE  = 1,  indicates  body-alone  case. 

= 2,  indicates  wing-alone  case. 

= 3,  indicates  wing-body  combina- 
tion case. 
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NBODY  = Number  of  body  panels. 

NWING  = Number  of  wing  panels . 

NPANEL  = Total  number  of  panels. 

NTAPEA  = Logical  number  of  tape  on  Which  the 
aerodynamic  influence  coefficients 
or  normal  velocity  components  on 
the  body  due  to  wing  sources  are 
written. 

NTAPEB  = Logical  number  of  tape  on  which 
the  velocity  components  are 
written. 

X = Array  of  x-coordinates  of  the 

panel  corner  points. 

Y = Array  of  y-coordinates  of  the 

panel  corner  points. 

Z ■ = Array  of  z -coordinates  of  the 

panel  corner  points. 

THETA  = Array  of  0 angles  (angle  between 
the  plane  of  the  panel  and  a plane 
parallel  to  the  x-y  plane) . 

dz 

ALPHAS  = Array  of  the  panel  slopes, 

Output:  IF  THKW  = 0. 

A = Matrix  of  the  aerodynamic  influence 

coefficients. 

U = Velocity  components  in  the  x- 

direction  due  to  vortex  distribution. 

V = Velocity  components  in  the  y- 

direction  due  to  vortex  distribution. 

W = Velocity  components  in  the  z- 

direction  due  to  vortex  distribution. 


If  THKW  t 0. 

A = Normal  velocity  components  on  the 

body  due  to  wing  sources. 
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U = Velocity  components  in  the  x- 

direction  due  to  wing  sources. 

V = Velocity  components  in  the  y- 

direction  due  to  wing  sources. 

W = Velocity  components  in  the  z- 

direction  due  to  wing  sources. 

SUBROUTINES 


CALLED: 

ACOS  ' 

TAN 

ALOG 

SQRT 

COS 

SIN  . j 

* (Built-In  functions) 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

S33710  = 

64U8 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  EVAL1 

To  compute  velocity  components  due  to  a surface  dis- 
tribution of  sources  in  the  reference  plane  of  the  wing. 

The  equations  in  this  subroutine  are  given  in  detail  in 
Appendix  B of  Part  I. 

COMMON/FLO VI  /KACE , NPANEL,  NBODY,  NWING, 
NBODYS,  NROW  (2),  XMACH,  SYM 

COMM  ON/FLO  V2/X(21 0 , 3,  4),  Y(210,  3,  4),  Z(210,  3, 

4),  NPART(210),  ALPHAS(210),  THETA(210),  XBB(50), 
R(50),  WT(120),  T(50) , TC(50),  SST(210),  CHORD(210) 

CALL  EVAL1  (NI,  THKW,  XB,  YB,  ZB,  U,  V,  W,  NSTOP) 

DIMENSION  C(4),  Q(4),  CPM(4),  RPM(4),  RTMM(4) , 
CPMM(4),  BBETAM(4) 


NI 

= Index  to  indicate  starting  point  of 
influencing  panels. 

NSTOP 

= Index  to  indicate  end  point  of 
influencing  panels. 

THKW 

= 0.  velocity  components  due  to 
vorticies  to  be  calculated. 

= 1 . velocity  components  due  to 
sources  to  be  computed. 

XB 

= x-coordinate  of  field  point. 

YB 

= y-coordinate  of  field  point. 

* 

ZB 

= z-coordinate  of  field  point. 

NPANEL 

= total  number  of  panels. 

SYM 

= 0.  nonsymmetric  configuration 

= 1.  symmetric  configuration 

XMACH 

= Mach  number. 

X 

= array  of  x-coordinates  of  panel 
corner  points. 

Y 

= array  of  y-coordinates  of  panel 
corner  points. 
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Z - array  of  z-coordinates  of  panel 

corner  points. 

NPART  - array  containing  the  number  of 
parts  on  each  panel. 

THETA  = array  of  0 -angles  (angle  between 
the  plane  of  the  panel  and  a plane 
parallel  to  the  x-y  plane. 

ALPHAS  = array  of  panel  slopes,  *g-. 

SST  = array  of  panel  vortex  strengths. 

WT  = array  of  panel  source  strengths. 

Output:  U = u-component  of  perturbation 

velocity. 

V = v-component  of  perturbation 

velocity. 


W = w-component  of  perturbation 

velocity. 

SUBPROGRAMS 


CALLED: 

ACOSH 

ALOG 

SIN 

TAN 

SQRT 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

26031q  = 5053g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 

SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


STORAGE: 


FORTRAN  IV  Subroutine  FASNCS 

To  compute  the  arc  sine  and/or  the  arc  cosine  of  a normal- 
ized floating  point  argument. 

The  arc  sine  and  arc  cosine  are  calculated  as  follows: 

1/2 

1}  for  0 < x < 1,  arc  cos  x = (1  - x)  ' a(x) 

2)  for  -1  < x < 0,  arc  cos  x = ir  - (1  - ixi)1/2  a(|x|) 

3)  for  0 < x < 1,  arc  sin  x = ff/2  - (1  - x)1/2  a(x) 

4)  for  -1  < x < 0,  arc  sin  x = -ff/2  + (1  - jxi)1/2  a(|x|) 

where  a(x)  is  approximated  by  an  eighth  degree  polynomial. 
For  x from  1 to  -1,  the  subroutine  gives  1 he  arc  sine  in 
radians  from  ff/2  to  -ff/2,  and  the  arc  cosine  in  radians 
from  0 to  ff . 

The  subroutine  FASNCS  has  two  entry  points,  ASIN  and 
ACOS;  the  function  names  ASIN  (X)  and  ACOS  (X)  are 
used  in  FORTRAN  arithmetic  expressions. 

SQRT  (Built-in  functions) 

None 

|x  | < 1.  If  | x|  > 1,  then  an  error  message  is  printed. 
The  subroutine  is  accurate  to  8 decimal  places,  with  the 
following  exceptions  in  the  arc  sine: 

| x|<  0.0015  6 decimal  figures 

0.0015  < | x I < 0.002  7 decimal  figures 

10910  - 155g 
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SUBJECT:  FORTRAN  IV  Subroutine  FCALC 

PURPOSE:  To  compute  pressures,  forces,  and  moments. 

METHOD:  This  subroutine  is  called  by  the  subroutine  FORCES  to 

compute  the  pressures,  forces  and  moments  for  the 
different  cases  of  wing  alone,  body  alone,  and  wing- body 
configurations. 
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CALL  FCALC 

COMMON  PATE  (2),  NTAPEA,  NTAPEB,  NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  KACE 

COMMON/AVAR/A  (210),  ACB  (21),  ABX  (100),  AWX 
(110),  AREA  (210),  ARN  (2),  ARWT  (20),  ALPHA  (210), 
ALPHAB  (210),  ALPHAS  (210),  ALPHAT  (110), 

ALPHAW  (110),  ALPHAX  (110),  AWX  (110),  ALPHAA, 
ALPHAD,  ARA,  ARADEG,  ARB,  ARW,  ARAS,  AT,  AAA 

COMMON/BVAR/B  (210),  BBCL,  BBCD,  BBCM 

COMMON/CVAR/C  (210),  CHORD  (210),  CL  (210),  CPBB 
(55,  10),  CPNN  (55,  10,  2),  CLS  (210),  CDR,  CASE, 
CPCALC,  CBAR,  CONSNT,  CLEAR,  CLX,  CLM,  CDM 

COMMON/DVARA)  (210),  DZDXB  (55) , DADEG,  DARAD 

common/ivarApolar 

COMMON/KVAR/KASE,  KONFIG,  K POLAR 

COMMON/NVAR/NFMT  (9),  NROW  (2),  NS,  NPANEL, 
NACEL,  NROWB,  NROWW,  NCOLW,  NBODYS, 

NTHETA,  NTHETS,  NXLE,  NRG,  NPOLAR,  NCLX 

COMMON/PVAR/POLAR 

COMMON/RVAR/R  (55),  RN  (55,  2),  RATIOX,  RFAREA 
COMMON/SVAR/SEMIS,  SLC 

COMMON/TVAR/TITLE  (12),  THETA  (210),  THETAB 
(10),  THETAS  (9),  THETAN  (10,  2),  TCL  (10),  TCD 
(10),  TCM(10),  THICK,  TWIST 

COMMON /UVAR/UBWT  (100),  UWBT  (110),  UWWT 
(110),  UNCL  (210,  2) 

COMMON /VVAR/VBWT  (100),  VWBT  (110),  VWWT  (110), 
VNCL  (210,  2),  VOUT 

COMMON /WVAR/WBWT  (100),  WWBT  (110),  WWWT 
(110),  WNCL  (210,  2) 

COMMON/XVAR/XBAR  (210),  XC  (210),  XNI  (2),  XNXN 
(2),  XNTN  (2),  XB  (55),  XN  (55,  2),  XNNCD  (2),  XNNCL 
(2),  XNNCM  (2),  XYZ  (3),  XCL  (10),  XCD  (10), 

XNACEL,  XP,  XCPBAR 


CQM^O^Ylft^  YC  (210),  YNI  (2) 

COMMON/ZVAR/ZBAR  (210),  ZC  (210),  ZNI  (2), 
ZDELTA  (55),  ZDN  (55,  2),  ZP,  ZA 

Output:  Body-alone  case 

BBCD  = Body  coefficient  of  drag. 

BBCL  = Body  coefficient  of  lift. 

BBCM  = Body  coefficient  of  pitching 
moment. 

CPBB  = Body  pressure  coefficients. 
Wing-alone  case 

WCD  = Wing  coefficient  of  drag. 

WCL  = Wing  coefficient  of  lift. 

WCM  = Wing  coefficient  of  pitching 

moment. 


WSCD 

WSCL 

CPU 


= Spanwise  distribution  of  wing  drag. 

= Spanwise  distribution  of  wing  lift. 

= Upper  surface  wing  pressure 
coefficient. 


CPL 


Lower  surface  wing  pressure 
coefficient. 


CP 


= Wing  pressure  difference. 


= CPL -CPU 


ALPHAU 

ALPHAL 

CHORD 


Upper  surface  wing  panel  slopes. 
Lower  surface  wing  panel  slopes. 
Wing  panel  chord  lengths. 


Wing-body  combination  case 

Note:  In  addition  to  the  output  given  above  for 
the  body-alone  and  wing-alone  case,  the 
following  output  of  incremental  pressures, 
forces,  and  moments  on  the  body  due  to 
the  wing  are  given  for  this  case: 
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SUBROUTINES 

CALLED: 


ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


BWCD 

= Incremental  coefficient  of  drag. 

BWCL 

= Incremental  coefficient  of  lift. 

BWCM 

= Incremental  coefficient  of  pitching 
moment. 

CPB 

= Increment  pressure  coefficients. 

and  also  for  the  total  wing -body 
configuration: 

WBCD 

= Total  coefficient  of  drag. 

WBCL 

= Total  coefficient  of  lift. 

WBCM 

= Total  coefficient  of  pitching 
moment. 

CAMBW 

DC  PI 

CAMBWB 

DC  PD 

OPTMW 

OPTMWB 

CVEL 

RITE 

CP 

INTPOL 

CAMBER 

WLDM 

BLDM 

OUTB 

OUTW 

FSF 

SQRT  (Built-in  function) 


None 

NBODY  4 100 
NWING  4110 

54401q  = 12500g 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

STORAGE: 


FORTRAN  IV  Subroutine  FDATE 

To  make  the  date  of  the  run  available  for  printout. 

The  FORTRAN  monitor  places  the  current  date  in  core  as 
a BCD  word.  The  first  two  characters  are  the  month,  the 
second  two  characters  are  the  day,  and  the  last  two  char- 
acters are  the  year.  This  date  is  printed  at  the  top  of  each 
page  of  a listing. 


CALL  DATE  (A*  B)  . 

The  date , in  BCD , is  stored  and  arranged  as  follows : 


Location  A — XXXbYY 


Location  B - , b!9  Z Z 


where 


XXX  represents  a three -character  abbreviation  for 


the  month,  b represents  a blank,  and  YY  and  ZZ  represent 
the  day  ami  year,  respectively. 

DATE  may  be  used  as  a function.  If  so  used,  the  BCD 
word  XXYYZZ  is  left  in  the  accumulator  upon  exit  from 
the  subroutine. 


C = DATE  (A,  B). 


None 

None 


41io  = 518 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE : 


FORTRAN  IV  Subroutine  FESF 

To  enable  the  FORTRAN  program  to  move  past  end -of -file 
marks  on  FORTRAN  written  binary  tapes,  and  to  skip 
entire  files.  1 

The  first  two  words  of  each  record  on  the  designated  logical 
tape  unit  are  read  using  the  IOCS  read  routine.  If  the  sec- 
ond word  is  the  Hollerith  literal  "TAPEND,"  the  error  code 
is  set  equal  to  the  number  of  files  remaining  in  the  file  count. 
Whenever  end -of -file  is  encountered  by  the  IOCS  read  sub- 
routine, the  file  count  is  reduced  by  one.  When  the  file 
count  reaches  zero,  the  error  code  is  set  to  zero,  and  the 
subroutine  returns  to  the  main  program . The  tape  is  then 
positioned  just  beyond  the  end-of-file  mark,  ready  to  read 
the  first  record  in  the  next  file.  A file  count  of  zero  or  one 
will  move  past  one  end-of-file  mark  to  the  beginning  of  the 
next  file  on  the  tape.  A file  count  of  two  wiU  pass  two  end- 
of-file  marks,  thereby  skipping  the  remainder  (if  any)  of 
the  current  file  and  the  next  file  in  its  entirety. 

CALL  FSF  (NFILE , LTAPE,  LERROR) 

Input:  NFILE  = The  file  count  described  above;  the 

number  of  files  to  space  forward. 

LTAPE  = The  logical  tape  unit  to  be  used. 

LERROR  = Error  code.  If  LERROR  = 0,  sub- 
routine successful.  If  LERROR  = n, 
n > 0,  n indicates  the  number  of  un- 
spaced files. 


IOCS 

FVIO 

None 

If  TAPEND  indicator  was  written  when  the  tape  was  written, 
FFSF  will  not  read  past  the  TAPEND  signal.  If  not,  it  is 
possible  to  run  off  the  end  of  the  tape. 

5210  = 648 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAMS 

CALLED: 


FORTRAN  IV  Subroutine  FFSR 

To  move  a designated  FORTRAN  binary  tape  forward  a 
specified  number  of  logical  records  while  indicating 
whether  end-of-file  was  reached. 

Logical  Records  (FSR) 

The  first  word  in  each  physical  record  on  the  designated 
tape  unit  is  examined  using  the  IOCS  read  routine,  and 
if  the  address  is  nonzero,  the  specified  record  count  is 
reduced  by  one.  If  an  end-of-file  is  encountered,  the 
tape  is  back-spaced  so  that  the  end-of-file  mark  is,  in 
effect,  not  passed,  and  the  error  code  is  set  equal  to  the 
number  of  records  remaining  to  be  read.  If  no  end-of- 
file  is  encountered,  reading  continues  until  the  record 
count  reaches  zero;  zero  is  stored  in  the  error  code  and 
the  subroutine  returns  to  the  calling  program.  No  re- 
dundancy checking  is  done. 

Physical  Records  (FSPR) 

The  method  is  the  same  as  for  a logical  record  except  that 
the  record  count  is  reduced  by  each  physical  record  spaced 
forward  and  the  first  word  of  each  record  is  not  examined. 

CALL  FSR  (N,  LTAPE,  LERROR) 

Input:  N = Number  of  FORTRAN  logical  records 

to  forward  space.  Zero  means  no 
spacing. 

LTAPE  = Logical  tape  unit. 

LERROR  = Error  code. 


CALL  FSPR  (NP,  LTAPE,  LERROR) 

Input:  NP  = Number  of  physical  records  to  for- 

ward space.  Zero  means  no  spacing. 


LTAPE  = Logical  tape  unit. 
LERROR  = Error  code. 


IOCS 

FVIO 
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RESTRICTIONS:  This  routine  will  not  proceed  beyond  an  end-of-file  mark 

on  tape* 

STORAGE:  53 10  ' 65 8 
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SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  FLOOUT 

To  provide  optional  output  of  perturbation  velocity 
components  and  pressure  coefficients  due  to  the  various 
singularities  — wing  pressure  singularities,  body 
pressure  singularities,  wing  source  singularities,  and 
body  line  sources  and  doublets  — at  points  in  the  near 
flow  field. 

The  velocity  contributions  are  written  on  four  different 
scratch  tapes;  one  for  each  type  by  subroutine  LACKEY. 
Depending  upon  the  type  of  case— wing  along,  wing-body 
or  body  alone— the  velocity  components  are  read  in  and 
the  pressure  coefficients  are  calculated  according  to  the 
CPCALC  Option  (see  subroutine  LACKEY). 

Appropriate  titles  are  printed  defining  which  singularities’ 
contributions  are  being  presented.  The  x,  y,  z coordi- 
nates of  the  point  in  question,  followed  by  the  u,  v,  w, 
velocity  components  and  the  pressure  coefficients  due  to 
that  singularity  are  written  on  the  output  tape. 


COMMON  /FLOV4/  COSARA,  SINARA,  XMACH2,  BT2 
COMMON  /F|OV5/  Nl,  N2,  N3,  N4 
COMMON  /THICK/  THKW,  ARA,  CPCALC,  CAMN,  POP 
COMMON  ANTGA/  GP(3,  500),  VLS(4,  500) 

number  of  points  and 
velocity  components  to 
be  output. 

cosine  of  angle  of  attack 
sine  of  angle  of  attack 
(Mach  Number)2 

XMACH2-1 

four  logical  tape  numbers 
of  scratch  tapes  on  which 
the  velocity  components 
have  been  written. 

see  subroutine  LACKEY 
for  description. 


0. , special  printout  not 
requested. 

0. , special  printout  is 
requested. 


CALL  FLOOUT  (IC) 

Input:  IC  = 


COSARA 

SINARA 

XMACH2 

BT2 

Nl 

N2 

N3 

N4 

THKW 

ARA 

CPCALC 
CAMN  J 
POP 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS; 

RESTRICTIONS: 

STORAGE: 


GP 

VLS 


scratch  array  used  for 
x,  y,  z coordinates. 

scratch  array  used  for 
u,  v,  w>  and  pressure 
coefficients. 


None 

None 

Due  to  the  limitations  on  the  dimension  of  the  scratch 
arrays,  this  routine  is  restricted  to  maximum  of  500 
points  in  the  flow  field.  If  more  than  500  points  are 
given,  the  output  is  printed  for  the  first  500. 

57510  = 10778 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  FLOVI Z 

Control  routine  of  the  Flow  Visualization  section. 

A control  word  is  read  from  the  input  tape  to  determine 
the  option  selected.  The  control  word  must  be  one  of 
GRIDS,  STREAMLINES,  or  POINTS.  If  the  control  word 
is  not  one  of  the  above,  control  is  returned  to  the  calling 
routine. 

Once  a control  word  is  recognized,  input  of  data  continues 
and  the  appropriate  option  is  selected. 

CALL  FLOVI Z 

DIMENSION  X(210,  3,  4),  Y (210,  3,  4),  Z (210,  3,  4), 
NROW  (2),  NPART  (210) 

DIMENSION  ALPHAS  (210),  THETA  (210) 

DIMENSION  XBB  (50),  R (50),  WT  (120) 

DIMENSION  T (50)  , TC  (50),  SST  (210),  CHORD  (210) 

COMMON/FLOV1/KACE,  NPANEL,  NBODY,  NWING, 
NBODYS,  NWINGS,  NROW,  XMACH,  SYM 

COMMON/FLOV2/X,  Y,  Z,  NPART,  ALPHAS,  THETA, 
XBB,  R,  WT,  T,  TC,  SST,  CHORD 

COMMON/F LOV4/COSA RA , SINARA,  XMACH2 , BT2 

C OMMON/F LOV5/N 1 , N2,  N3,  N4 

COMMON/GRIDA/MODE,  DX,  DY,  DZ,  IX,  IY,  IZ,  XO, 
YO,  ZO,  XA,  YA,  ZA,  LIT 

COMMON/INTGA/DUM  (3500) 

common/thick/thkw,  ARA,  CPCALC,  camn,  pop 

COMMON  DAT  (4),  N8,  DUUM  (3),  N5,  N6,  DUUUM  (5) 

DATA  GRID/6HGRIDS  /,  STREAM/6HSTREAM/ , 

POINT /6HPOINTS/ 
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SUBPROGRAMS 


CALLED: 

ALLIN 

GRIDS 

FLOOUT 

STRM1 

LACKEY 

SQRT 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

90810  = 1614 

SUBJECT: 

PURPOSE: 


FORTRAN  IV  Subroutine  FORCES 

Control  routine  for  computing  pressures,  forces,  and 
moments. 


METHOD: 


The  input  data  cards  for  a given  case  are  read  and  other 
subroutines  are  called  as  required  to  perform  the 
requested  calculations. 


READ  Alt)  WRITE  INPUT  DATA 
AND  TITLE 


= 2 (BODY  ALONE) 
=3  (WING -BODY) 


READ  BODY  GEOMETRICAL 
DATA  FROM  SCRATCH  TAPE 
AND  INPUT  TAPE 


KONFIG 

<fi  (WING  ALONE) 


= 3 


COMPUTE  VELOCITIES 
0UETO  BODY  SOURCES 


READ  WING  GEOMETRICAL 
DATA  FROM  SCRATCH  TAPE 
AND  INPUT  TAPE 


THICK 
=0 


COMPUTE  VELOCITIES 
DUE  TO  WING  SOURCES 


= 3 


-1 


COMPUTE  PRESSURES,  FORCES,  AND 
MOMENTS  ON  CONFIGURATION 


DRAG  POLAR  REQUESTED 

1)  READ  DELTA 

2)  ADD  DELTA  TO  PREVIOUS  INCIDENCE  I 
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USAGE: 


CALL  FORCES 

COMMON  DATE  (2),  NTAPEA,  NTAPEB,  NT  APEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  KACE 

COMMON/AVAR/A  (210),  ACB  (21),  ABX  (100),  AWX 
(110),  AREA  (210),  ARN  (2),  ARWT  (20),  ALPHA  (210), 
ALPHAB  (210),  ALPHAS  (210),  ALPHAT  (110), 

ALPHAW  (110),  ALPHAX  (110),  AWX  (110),  ALPHAA, 
ALPHAD,  ARA,  ARADEG,  ARB,  ARW,  ARAS,  AT,  AAA 

COMMON/BVAR/  B (210),  BBCL,  BBCD,  BBCM 

COMMON / C VAR/  C (210),  CHORD  (210),  CL  (210), 
CPBB  (55,  10),  CPNN  (55,  10,  2),  CLS  (210),  CDR, 

CASE,  CPCALC,  CBAR,  CONSNT,  CLBAR,  CLX,  CLM, 
CDM 

COMMON/DVAR/  D (210),  DZDXB  (55),  DADEG,  DARAD 

COMMON  AVAR/IPOLAR 

COMMON/KVAR/KASE,  KONFIG,  KPOLAR 

COMMON/NVAR/NFMT  (9),  NROW  (2),  NS,  NPANEL, 
NACEL,  NROWB,  NROWW,  NCOLW,  NBODYS,  NTHETA, 
NTHETS,  NXLE,  NRG,  N POLAR,  NCLX 

COMMON/PVAR/POLAR 

COMMON/RVAR/  R (55),  RN  (55,  2),  RATIOX,  RFAREA 
COMMON/SVAR/SEMIS,  SLC 

COMMON/TVAR/TITLE  (12),  THETA  (210,  THETAB 
(10),  THETAS  (9),  THETAN  (10,  2),  TCL  (10),  TCD 
(10),  TCM  (10),  THICK,  TWIST 

COMMON /UVAR/UBWT  (100),  UWBT  (110),  UWWT 
(110),  UNCL  (210,  2) 

COMMON /WAR/VBWT  (100),  VWBT  (110),  VWWT 
(110),  VNCL  (210,  2),  VOUT 

COMMON/WVAR/WBWT  (100),  WWBT  (110),  WWWT 
(110),  WNCL  (210,  2) 

COMMON/XVAR/XBAR  (210),  XC  (210),  XNI  (2),  XNXN 
(2),  XNTN  (2),  XB  (55),  XN  (55,  2),  XNNCD  (2),  XNNCL 
(2),  XNNCM  (2),  XYZ  (3),  XCL  (10),  XCD  (10),  XNACEL, 
XP,  XCPBAR 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 
RESTRU  CTIONS: 

STORAGE: 


COMMON/YVAR/YBAR  (210),  YC  (210),  YNI  (2) 

COMMON/ZVAR/ZBAR  (210),  ZC  (210),  ZNI  (2), 
ZDELTA  (55),  ZDN  (55,  2),  ZP,  ZA 

Input:  See  Aerodynamic  Card  Set  of  Input  Data  Format 

(section  3. 3) 


INOUT 

READ 

BCAM 

BTKECK 

TVEL 

KARMOR 

FCALC 

FSF 

COS  (built-in  function) 
None 

NBODY^lOO 
NWING  ^110 

102010  = 237 32 g 
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SUBJECT? 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  Subroutine  FROOTA 

To  find  the  root  of  a single -valued  function  f(x). 

FROOTA  is  designed  to  be  called  repeatedly  until  a root  is 
found  within  a given  tolerance.  On  initial  call  it  is  given 
two  points  on  the  function;  these  two  points  bracket  the  root. 
FROOTA  computes  two  values  of  x (estimates  of  the  root 
location)  and  returns  with  a code  indicating  that  it  wishes 
to  be  called  again.  Calling  program  finds  function  values 
corresponding  to  the  two  root  estimates  and  calls  FROOTA 
a second  time.  FROOTA  determines  which  points  now 
bracket  the  root,  computes  new  root  estimates,  and  returns. 
Process  continues  until  FROOTA  signals  that  root  has  been 
found. 

Root  estimates  are  made  as  follows:  (a)  the  first  root  is 

estimated  by  assuming  the  function  to  be  linear  between  the 
bracketing  points,  and  (b)  the  second  root  is  estimated  by 
bisecting  the  bracketing  interval.  A root  is  located  when 
(1)  exact  root  is  found,  (2)  bracketing  interval  becomes 
smaller  than  given  tolerance  , or  (3)  root  estimate  made  on 
the  basis  of  linear  interpolation  is  identical  to  x-value  of 
bracketing  point. 


DIMENSION  R(10) 

R(9)  = 0. 

R(10)  = Tolerance 

1 1 Initial  bracketing  values  of  x 
K(3)  - » 

DO  a I = 1,50 

R(2)  = Function  value  corresponding  to  R(l) 
R(4)  = Function  value  corresponding  to  R(3) 
CALL  FROOTA (R,  J) 

IF  (J)  p ,y,ct 
a CONTINUE 
j8  error  exit 

y success  exit.  Root  is  in  R(l). 


Input: 


(First  call  only, 
where  Xg  > x^ 

R(l)  = xa 

R(2)  = f(xa) 

R(3)  = ^ 

R(4)  = f(xfe) 


Assume  root  bracketed  by  Xg,  x^ 
°r  Xg  < xt,.) 
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SUBPROGRAM 

CALLED: 

RESTRICTIONS: 

STORAGE: 


R(9)  =0. 

R(10)  = Tolerance  (in  x),  which  may  be  zero 
Input:  (2nd  and  succeeding  calls) 


R(2)  = f (R(1)) 
R(4)  = f(R(3)) 


Output;  R(l) 

R(3) 

R(5) 

R(6) 

R(7) 

R(8) 

R(9) 

J 


Root  estimate  if  J - 1 

Root  if  J = 0 

Root  estimate  if  J = 1 


xc 

f(Xc) 

*d 
f(Xd) 

Number  of  times  that  FROOTA  has  been 
called. 


where  Xq  and  are  values  of 
x which  currently  bracket  the 
root  (x<j  < X(j). 


= 0 The  root  has  been  found. 

= 1 The  root  has  not  yet  been  located. 

= -2  R(9)  < 0. 

= -3f(xft)  *f(xb)  > 0 on  the  first  call, 

wnxch  means  that  the  root  is  not  bracketed. 


None 

Function  values  at  limits  of  initial  interval  must  not  have 
the  same  sign.  Function  must  be  continuous  over  interval. 
It  may  have  a number  of  roots  but,  of  course,  FROOTA  will 
only  find  one.  Last  six  elements  of  R-array  must  not  be 
changed  between  successive  calls  for  a particular  case. 

186io  = 2,28 
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SUBJECT: 


FORTRAN  IV  Subroutine  FSF 
(See  Subroutine  FFSF) 
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SUBJECT 


FORTRAN  IV  Subroutine  FSR 
(See  Subroutine  FFSR) 


SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 

SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


STORAGE: 


FORTRAN  IV  Subroutine  FTAN 


To  compute  the  tangent  of  a floating  point  radian  argument. 
The  tangent  function  is  computed  as  follows: 


1) 

2) 


3) 


if  0 < l X | < 10-4  radians,  tan  x = x 
if  10 “4  < ix  i < 7T/4  radians, 
tun  x = ~ x2  o 

7- 4 ^ 2 

9 11 

if  ff/4  < | x I < v f 2 radians,  and 

a)  x > 0,  ton  tan  x = - („>2  _ x) 

b)  x < 0,  then  tan  x = — ^ .-,^5 


The  function  name  TAN  (X)  is  used  in  an  arithmetic  expres- 
sion where  the  argument  X is  a FORTRAN  expression. 


None 

None 

X is  restricted:  I X I < 22®  • IT  and  not  within  two  bits  of 
an  odd  multiple  of  ff/2. 

If  I X I > 22®  • n an  error  message  is  given. 

If  the  argument  is  within  two  bits  of  an  odd  multiple  of  ff  /2 , 
an  error  message  is  given. 

The  accuracy  is  at  least  8 significant  digits  for  0 <x  < n 
radians , at  least  7 significant  digits  for  7T  < x < 2 TT  and 
at  least  6 significant  digits  otherwise. 

12410  = 174s 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  GEOMD 

To  control  subprograms  that  deal  with  the  first  phase  of 
wing -body  geometry. 

A buffer  is  set  up  (see  Appendix  A)  that  is  used  by  all 
lower-level  subroutines  for  all  variable -length  storage 
arrays.  Datacards  are  read  by  subroutine  INTURP 
until  a valid  command  (in  columns  1-6)  is  found.  After  any 
command  except  DEFEND  is  executed,  data  cards  are  again 
read  until  another  valid  command  is  encountered;  a DEFEND 
command  returns  control  to  the  calling  program . For  a 
command  BODY  (or  BODY) , subroutine  BODY1  is  called 
to  read  body  definition  data  and  compute  points  on  body 
meridian  lines.  A command  WING  (or  WING)  results  in 
a call  of  subroutine  WINGA  to  read  wing  definition  data  and 
compute  points  on  wing  percent  lines.  A WBX  command  is 
used  to  find  the  intersections  of  previously  defined  wing  per- 
cent lines  with  a body  surface.  The  TDUMP  command  sets 
a code  which  will  later  result  in  a printout  of  the  contents  of 
the  definition  tape.  A NOTAPE  (or  NOTAPE)  command 
sets  a code  to  suppress  the  writing  of  a definition  tape  (see 
Appendix  D) . 


DIMENSION  DATE  (2) 

COMMON  /LGEOMD/  LGDEF(3,  6) 
LOGICAL  LGDEF 


CALL 

Input: 


GEOMD  (DATE,  LI,  LO,  LER,  LTAPE) 

DATE  = Date  (alphameric). 

LI  = Input  tape  number. 

LO  = Output  tape  number. 

LER  = Output  tape  number  for  error  comments. 


LTAPE  = Definition  tape  number. 


Output:  LDGEF  = Logical  array  describing  which  defini- 
tions were  requested  and  completed. 
LGDEF(i,  j)  is  .TRUE,  if  the  1th 
statement  is  true  for  the  j^1  component. 


component 


1.  Upper  wing  surface  percent  lines. 

2.  Lower  wing  surface  percent  lines. 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


3.  Body  surface  meridian  lines. 

4.  Wing  planform  points. 

5.  Intersections  of  upper  wing  per- 
cent lines  with  body  surface. 

6.  Intersections  of  lower  wing  per- 
cent lines  with  body  surface. 

i*k  statement 

1.  This  component  requested. 

2.  This  component  successfully 
computed. 

3.  This  component  successfully 
computed  and  the  results  written 
on  LTAPE. 


CLEAR  V 
INIBFR  ) 


(See  Appendix  A) 


DEFEND 

BOBT1 

INTURP 

WINGA 

WBXUL 

The  LGDEF  array  will  reflect  any  errors  detected.  Lower- 
level  subroutines  write  error  messages  on  tape  LER. 


The  suggested  order  for  commands  is  BODY,  WING,  WBX, 
DEFEND.  The  minimum  set  of  commands  is  BODY, 
DEFEND  (or  WING,  DEFEND).  The  last  command  must 
always  be  DEFEND.  NOTAPE  must  be  placed  before  WBX 

(if  present).  BODY WING  or  WING,  ....  BODY  must 

precede  WBX.  A required  set  of  data  cards  (see  Input  Data 
Format,  3.3)  must  follow  each  command  except  TDUMP, 
NOTAPE,  and  DEFEND. 


10289  = 24061 

10  o 
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SUBJECT:  FORTRAN  IV  Subroutine  GRIDS 

PURPOSE:  Computes  two- and  three-dimensional  grids,  and  two- 

dimensional  Skew  grids.  Field  velocity  components  and 
V 8 are  computed  at  the  grid  lattice  points. 

METHOD:  The  input  data  described  below  under  USAGE  defines  the 

rectangular-grid  system.  The  two-dimensional  skew 
grid  is  defined  lay  one  of  the  implicit  axis  (user  specified) 
and  by  a vector  formed  by  the  requested  grid  origin  point, 
and  another  input  point  that  may  be  anywhere  in  the  space 
of  interest.  The  grid  lattice  in  this  case  is  specified  by 
incremental  distances  given  along  an  implicit  axis  and  by 
projections  of  incremental  distances  given  along  one  of 
the  implicit  axes  on  the  vector-defined  axis  as  shown 
in  the  sketch  below: 
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USAGE: 


COMMON/GRIDA/MODE,  DX,  DY,  DZ,  K,IY,  IZ,  XO, 
YO,  ZO,  XA,  YA,  ZA,  LIT 

COMMONANTGA/GP  (3,  NMAX),  VLS  (4,  NMAX) 
CALL  GRIDS 


DX 

DY 

DZ 

IX 

IY 

IZ 

XO 

YO 

ZO 

XA 

YA 

ZA 

LIT 


= length  of  increment  in  x-direction. 

= length  of  increment  in  y-direction. 

= length  of  increment  in  z-direction. 

= number  of  increments  in  x-direction. 

= number  of  increments  in  y-direction. 

- number  of  increments  in  z-direction. 

= x- coordinate  of  grid  origin. 

= y-coordinate  of  grid  origin. 

= z-coordinate  of  grid  origin. . 

= x- coordinate  of  skew  grid  vector 
point. 

= y-coordinate  of  skew  grid  vector 
point. 

= z-coordinate  of  skew  grid  vector 
point. 

= a BCD  character  x,  y,  or  z, 
defines  the  implicit  axis  to  be 
used  in  the  skew  grid  computation. 


MODE  = 1,  output  as  y-z  planar  cuts. 

= 2,  output  as  x-z  planar  cuts. 
= 3,  output  as  x-y  planar  cuts. 
= 4,  skew  grid. 


GP  (I,  J)  = a scratch  array  used  to  contain 

the  coordinate  of  a 2-d  planar  cut. 

VLS  (I,  J)  = a scratch  array  used  to  contain 
the  points  in  the  above  array. 


252 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


Outputs:  The  coordinates,  the  actual  velocities,  a 

normalized  velocity  vector,  and  the  Cp  at  each 
point  of  the  grid  are  written  on  the  output  tape. 


COMP 

BLUNDR 

FLOOUT 

SQRT 

See  RESTRICTIONS  below. 

The  product  of  the  increment  parameters  for  a cut  must 
be  less  than  500.  Grids  will  not  be  calculated  and  an 
error  message  is  written  on  the  output  tape  if  the  above 
is  related. 

114410  =22148 
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SUBJECT:  FORTRAN  IV  Subroutine  INOUT 

PURPOSE:  To  print  out  all  input  aerodynamic  data. 

METHOD:  The  input  data  is  written  on  the  output  tape  for  subsequent 

off-line  printing. 

USAGE:  CALL  INOUT  (NTAPEO,  KASE , CPCALC,  POLAR,  THICK, 

VOUT,  RFAREA,  XP,  ZP,  XMACH,  SYM) 


Input:  NTAPEO 

KASE 
CPCALC 

POLAR 

THICK 

VOUT 

RFAREA 

XP 

ZP 

XMACH 

SYM 

SUBPROGRAM  None 

CALLED: 

ERROR  RETURNS:  None 

RESTRICTIONS:  None 

STORAGE:  472  = 730 

10  8 


= Logical  number  of  output  tape. 

= Code  that  selects  case  option. 

= Code  that  selects  pressure  coefficient 
calculation  option. 

= Code  that  selects  drag  polar  option. 

= Code  that  selects  wing  thickness 
option. 

= Code  that  selects  velocity  components 
printout  option. 

= Half  wing  reference  area. 

= x-coordinate  of  point  about  which  the 
pitching  moments  are  to  be  computed. 

= z-coordinate  of  point  about  which  the 
pitching  moments  are  to  be  computed. 

= Mach  number. 

= Configuration  symmetry  condition. 
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SUBJECT:  FORTRAN  IV  Subroutine  INPUTB 

PURPOSE:  To  read  body  definition  and  transformation  data  from  scratch 

tapes  as  provided  by  previous  program  section  and  to  read 
body  paneling  data  from  input  cards. 

METHOD:  Program  uses  direct  read  tape  statements  to  obtain  body 

definition  and  transformation  from  scratch  tapes  (see 
Appendix  D for  tape  format) . Similarly  program  reads 
input  tape  directly  for  body  paneling  input  card  data. 

USAGE  : COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 

description). 

Input:  ND1 

ND4 
NREAD 
NWRITE 

COMMON  /COMl/  (See  subroutine  PANEL) 

Output:  KOPTB 
HINT 
XI 
YI 
ZI 

NPER 

NPER1 

NPLANE 

NPLN1 

COMMON  /COM2/  (See  subroutine  BODY) 

Output:  NPLNB 
NPLNW 
JLEAD 
JTRAIL 
NPTS 
X 
Y 
Z 

XCEPT 

XCEPTB 

XCEPTW 

YCEPTW 

ZCEPTW 

CODEBW 

CALL  INPUTB 
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CALLED:  FSR 

CHECK 

ERROR  RETURNS:  Error  message  indicates  whether  body  cutting  planes  are 

incorrectly  defined  on  input  cards.  Error  messages  also 
indicate  whether  size  of  subscripted  array  is  exceeded  by 
input  card  data  or  by  data  on  scratch  tapes. 

STORAGE:  597210  = 13524g 
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SUBJECT:  FORTRAN  IV  Subroutine  INPUTW 

PURPOSE:  To  read  wing  definition  and  transformation  data  from  scratch 

tape  as  provided  by  previous  program  section  and  to  read  wing 
paneling  data  from  input  cards.  Program  reads  input  cards 
that  define  wing  cutting  planes,  and,  if  an  option  is  used,  pro- 
gram reads  actual  upper  and  lower  airfoil  surface  coordinates 
from  which  wing  camber  and  thickness  are  calculated. 

METHOD:  Program  uses  standard  read  tape  instructions  to  obtain  wing 

definition  from  scratch  tapes  (see  Appendix  D for  tape  for- 
mat^Similarly  program  reads  input  tape  for  wing  panel- 
ing card  data. 

USAGE:  COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 

description). 

Input:  ND4 

NREAD 

NWRITE 

COMMON  /COM  1/  (See  subroutine  PANEL  for  description) 

Output:  KOPTW 
KOPTF 
NUMS 
NPER 
NPER1 
NPLANE 
NPLN1 

COMMON  /COm/  (See  subroutine  WING  for  description) 

Output:  NPTS 
X 

y 

z 

KPNT 

VALUE 

YCEPT 

SLOPE 

CALL  INPUTW 

SUBPROGRAMS 
CALLED:  FSR 

CHECK 

ERROR  RETURNS:  Error  messages  indicate  if  size  of  subscripted  array  is  ex- 

ceeded by  data  on  input  cards  or  on  scratch  tapes . 

STORAGE:  5946 1Q  = 13472g 
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SUBJECT: 


PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAM: 

CALLED: 

ERROR  RETURNS: 


FORTRAN  IV  Subroutine  INTAPE 

To  input  geometrical  data  to  the  aerodynamic  links  of  the 
program. 

The  geometrical  data  are  read  into  the  aerodynamic  links 
of  the  program  from  binary  scratch  tapes  generated  in 
the  geometry  links.  The  format  of  the  tape  that  transfers 
the  panel  geometry  from  the  paneling  links  is  described 
in  Appendix  D.  The  geometry  of  the  isolated  body  is 
transferred  from  the  transformation  links.  The  format 
of  this  tape  is  given  in  Appendix  D. 

CALL  INTAPE 

COMMON  DATE  (2),  NTAPEA,  NTAPEB,  NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 

NBODY,  NWING,  XMACH , SYM,  KACE 

COMMON/BLOCK/ALPHAS  (210) , AREA  (210) , A (210) , 
ALPHAC (110) , ALPHAT  (110) , CHORD  (210),  ISYM,  NPART 
(210),  NPANEL,  NROW  (2),  THETA  (210),  TAIL,  U (210), 
V (210),  VPM  (210),  W (210),  VPMM  (210),  W (210), 
WPM  (210),  WW  (210),  WPMM  (210) 

DIMENSION  X (210,  3,  4),  XBAR  (210),  XC  (210),  Y 
(210,  3,  4),  YBAR  (210),  YC  (210),  Z (210,  3,  4), 

ZBAR  (210),  ZC  (210) 


Input:  NBODY 

NWING 
NTAPEB 


NTAPEC 


NTAPED 


= Number  of  body  panels. 

= Number  of  wing  panels. 

= Logical  tape  number  from  which 
isolated  body  geometry  data  is 
read. 

= Logical  tape  number  from  which 
panel  geometry  data  is  read  and 
on  which  panel  geometry  data  is 
rewritten  in  a different  format 
for  use  in  the  aerodynamics  links. 

= Logical  tape  number  from  which 
additional  isolated  body  geometry 
data  is  read. 


None 

None 
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RESTRICTIONS: 

STORAGE: 


NBODY^  100 
NWING^  U0 

126010  - 2854g 


SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  INTPOL 

The  drag  of  an  individual  panel  may  be  obtained  by  multiply- 
ing the  panel  pressure  by  the  product  of  the  average  down- 
wash,  oyer  the.  panel  and  the  area.  The  program  calculates 
panel  pressure  and  downwash  (nj)at  the  control  point  . 

As  the  control  point  is  normally  located  at  95  percent  of 
the  panel  chord,  the  downwash  at  this  point  is  often  greater 
than  the  average  downwash  of  the  panel.  Thus  it  is  neces- 
sary to  interpolate  for  the  average  downwash  of  the  panel 
in  calculating  the  drag. 

For  fee  first  panel  of  any  ehordwise  column,  the  average 
downwash  is  obtained  by  a linear  extrapolation  of  the  down- 
wash  at  the  control  points  of  the  first  two  panels. 


(R  - R)  (n2  - nx) 


where  R = The  location  of  the  control  point  as  a fraction  of 
the  local  panel  chord. 

R = The  location  of  the  point  as  a fraction  of  the 
local  panel  chord  at  which  the  downwash  used 
in  drag  calculations  is  to  be  found. 

C = The  local  chord  length  of  the  panels. 

For  the  remainder  of  the  panels  in  any  ehordwise  column 
of  panels,  the  downwash  is  obtained  by  a linear  interpola- 
tion of  fee  downwash  of  the  adjacent  panels. 


Cj  (R  - R)  (14  - n^) 


CALL  INTPOL  (NM,  NROW,  RATIOX,  RATIOD,  CHORD, 
ALPHAM,  ALPHAD) 

DIMENSION  CHORD  (NM) , ALP  HAM  (NM) , ALPHAD(NM) 

Input:  NM  = Total  number  of  panels  on  wing  or 

body. 

NROW  = Number  of  panels  in  a ehordwise 
column. 


260 


RATIOX  = Location  of  the  control  point  as  a 
fraction  of  the  local  panel  chord. 

RATIOD  = Location  of  the  point  as  a fraction  of 
the  local  panel  chord  at  which  the 
downwash  is  to  be  found. 

CHORD  = Array  of  the  local  chord  lengths  of 
the  panels. 

ALPHAM  = Array  of  panel  downwash  at  the  con- 
trol point  locations. 

Output:  ALPHAD  = Array  of  interpolated  panel  downwash 

values. 

SUBPROGRAM 
CALLED:  None 


ERROR  RETURNS:  None 

RESTRICTIONS:  None 

STORAGE:  mio  “ 26l8 
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SUBJECT:  FORTRAN  IV  Function  INTURP 

PURPOSE:  To  read  and  write  a data  card,  then  find  which  word  in  a 

given  table  is  the  same  as  the  first  word  in  the  data  card. 

METHOD:  Let  II  be  the  input  tape  and  LO  the  output  tape.  INTURP 

reads  the  next  data  card  on  II  with  FORMAT  (13A6,  A2). 

If  LO  > 0,  the  contents  of  the  card  are  written  on  LO  with 
FORMAT  (1H0>14A6).  A fixed-point  comparison  is 
made  between  Hie  first  word  on  the  card  and  each  word  in 
the  table  until  a match  is  found  or  the  end  of  the  table  is 
reached.  The  function  value  returned  is  the  position  in  the 
table  that  matched  the  first  word  in  the  data  card,  or  else 
zero  if  no  match  was  found. 

USAGE:  DIMENSION  T (N) 

K = INTURP  (T,  N,  LI,  LO) 

T = Table. 

N - Number  of  words  in  T. 

LI  = Input  tape. 

LO  = Output  tape. 

K = Function  value. 

EXAMPLE:  A data  deck. might  have  three  types  of  data  cards,  each  group 

with  a header  card  having  a code  word  in  the  first  six  columns, 
and  perhaps  comments  in  the  remaining  columns.  Assume 
the  code  words  are  BODY,  WING,  and  DEFINE.  A portion 
of  the  program  could  be  written  as  follows: 

DIMENSION  T(3) 

DATA  T/4HBODY,  4HWING,  6HDEFINE/ 


10 

K = INTURP  (T,  3,  5,  6) 
IF  (K)  10,  10,  20 

20 

GO  TO  (100,  200,  300),  K 

SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

98 

10 

= 142  8 
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SUBJECT:  FORTRAN  IV  Subroutine  INVBB 

PURPOSE:  For  the  wing-body  case,  to  preprocess  the  aerodynamic 

influence  coefficients  matrix. 

ABW 
AWW 


Agg  = The  influence  on  the  body  due  to  the  body 

aWB  = Th©  influence  on  the  wing  due  to  the  body 

ABW  = The  influence  on  the  body  due  to  the  wing 

AWW  = T^ie  in^uence  011  the  wing  due  to  the  wing 

by  inverting  Agg  and  partitioning  A^g  in  preparation  for 
reduction  of  the  matrix  (subroutine  REDUCE). 

METHOD;  The  portion  Of  the  aerodynamic  influence  coefficients 

resulting  from  the  influence  of  the  body  is  read  from  logical 
tape  NTAPEA  by  columns  into  core.  A^g  is  written  im- 
mediately on  logical  tape  NT  APED.  Agg  is  inverted  in 
core  by  the  single  precision  inversion  subroutine  SINVRT. 
The  matrix  Inverse  is  then  stored  on  NT  APED  behind  A^yg. 
Both  matrices  are  written  by  columns  as  a logical  record. 
Logical  tape  NT  APED  is  rewound  and  NTAPEA  is  left  at 
the  position  of  the  last  read  instruction. 

USAGE:  CALL  INVBB 

COMMON  DATE (2),  NTAPEA,  NTAPEB,  NTAPEC, 

NT  APED,  NT  APE  E,  NT  APE  F,  NT  APE  I,  NT  APE  O,  NBODY, 
NWING,  XMACH,  SYM,  RACE 

DIMENSION  ABB(115,  115),  AWB(llO) 

Input:  NTAPEA  = Logical  number  of  scratch  tape. 

NT  APED  = Logical  number  of  scratch  tape. 

NTAPEO  = Logical  number  of  output  tape. 

NBODY  = Number  of  body  panels. 

NWING  = Number  of  wing  panels. 

A = Aerodynamic  influence  coefficients 

matrix  on  logical  tape  NTAPEA. 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


Output:  AWB  = Partition  of  the  aerodynamic  influ- 
ence coefficients  matrix  resulting 
from  the  influence  of  the  body  on 
the  wing  written  on  logical  tape 
NT APED. 

ABB-1  = Inverse  of  the  partition  of  the  aero- 
dynamic influence  coefficients 
matrix  resulting  from  the  influence 
of  the  body  on  the  body  written  on 
logical  tape  NTAPED. 


SINVRT  (see  Appendix  B) 

If  an  error  occurs  in  the  inverstion  of  the  matrix,  the 
message  "ERROR  IN  INVERSION  OF  BODY  MATRIX" 
will  be  written  on  the  output  tape.  The  values  for  IRR1, 
IRR2,  and  SCALE  returned  by  subroutine  SINVRT  are 
also  written  on  the  output  tape  . 

The  matrix  to  be  inverted  must  not  exceed  the  order  110. 
135661q  = 32402g 
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SUBJECT:  FORTRAN  IV  Subroutine  INVRW 

PURPOSE:  For  the  wing-body  case,  to  invert  the  reduced  aerodynamic 

influence  coefficients  matrix. 

METHOD;  The  reduced  aerodynamic  influence  coefficients  matrix  is 

read  from  logical  tape  NTAPEE  into  core.  The  matrix  is 
inverted  in  core  by  the  single -precision  inversion  sub- 
routine SINVRT.  The  matrix  inverse  is  then  stored  on 
logical  tape  NTAPEE  behind  original  matrix  with  an  end- 
of-file  separating  the  two  matrices.  An  end -of -file  is  also 
written  after  the  inverted  matrix.  The  tape  is  then  rewound. 

USAGE:  CALL  INVRW 

COMMON  DATE  (2) , NTAPEA , NTAPEB , NTAPEC , 

NT APED , NTAPEE, NTAPEF, NTAPEl, 
NTAPEO,  NBODY,  NWING,  XMACH,  SYM, 
KACE 

DIMENSION  ARWW(115,  115) 

Input:  NTAPEE  = Logical  number  of  scratch  tape. 

NWING  = Number  of  wing  panels. 

ARWW  = Reduced  aerodynamic  influence  coef- 
ficients matrix. 

Output:  ARWW-1  = Inverse  of  the  reduced  aerodynamic 

influence  coefficients  matrix. 

SUBPROGRAM 

CALLED;  SINVRT  (see  Appendix  B) 

ERROR  RETURNS:  If  an  error  occurs  in  the  inversion  of  the  matrix,  the  mes- 

sage "ERROR  IN  INVERSION  OF  REDUCED  MATRIX" 
will  be  written  on  the  output  tape.  The  values  of  IRR1, 

IRR2 , and  SCALE  returned  by  subroutine  SINVRT  are 
also  written  on  the  output  tape. 

RESTRICTIONS:  The  matrix  to  be  inverted  must  not  exceed  the  order  110. 

STORAGE:  13427 1Q  = 32163g 
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SUBJECT; 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  iy  Subroutine  INVW 

For  Hie  wing-alone  case,  to  invert  the  aerodynamic  influence 
coefficients  matrix  and  to  store  both  the  matrix  and  its  in- 
verse on  a scratch  tape. 

The  aerodynamic  influence  coefficients  matrix  previously 
computed  Is  read  from  logical  tape  NTAPEA  into  core  and 
simultaneously  stored  on  logical  tape  NTAPEE,  where 
NTAPEA  and  NTAPEE  are  logical  tape  numbers  of  scratch 
tapes  stored  in  COMMON.  The  matrix  in  core  is  inverted 
by  a single  precision  inversion  Subroutine  SINVRT . The  in- 
verse is  stored  behind  the  original  matrix  on  logical  tape 
NTAPEE  with  an  end-of-file  mark  separating  the  two 
matrices.  An  end-of-file  mark  is  also  written  after  the 
inverted  matrix.  Both  tapes  are  then  rewound. 

CALL  INVW 

COMMON  DATE (2),  NTAPEA,  NTAPEB , NTAPEC , 
NTAPED , NTAPEE,  NTAPEF,  NTAPEI , 
NTAPEO,  NBODY,  NWING,  XMACH,  SYM, 
RACE 

DIMENSION  AWW(115,  115) 

Input:  AWW  = Aerodynamic  influence  coefficients 

matrix  on  logical  tape  NTAPEA. 

Output:  AWW  = Aerodynamic  influence  coefficients 

matrix  written  on  logical  tape  NTAPEE. 

AWW--*-  = Inverse  aerodynamic  influence  coeffi- 
cients matrix  written  on  logical  tape 
NTAPEE. 


SINVRT  (See  Appendix  B) 

If  an  error  occurs  in  the  inversion  of  the  matrix  the  message 
ERROR  IN  INVERSION  OF  WING  ONLY  MATRIX  will  be 
written  on  the  output  tape.  The  values  for  IRR1,  IRR2,  and 
SCALE  as  returned  by  subroutine  SINVRT  are  also  written 
on  the  output  tape. 

The  matrix  must  not  exceed  the  order  110. 

13467  = 322  33g 
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SUBJECT:  FORTRAN  IV  Subroutine  KARMOR 

PURPOSE:  For  the  isolated  body,  to  compute  the  velocity  components 

and  the  resulting  pressures,  forces , and  moments  induced 
by  the  body  sources  and  doublets. 

METHOD:  The  body,  considered  to  be  made  up  of  a series  of  K 

parabolic  arcs,  is  defined  by  a radius  r and  camber  A z 
at  each  body  station  x along  the  body  axis. 


A linearly  varying  source  is  placed  at  the  nose  of  the 
body  (1  = 1)  to  give  the  proper  conical  tip.  The  strength 
of  this  source  is  determined  by  the  tangency  condition  at 
the  nose: 


where  8 is  the  semi-vertex  of  the  nose. 


A quadratically  varying  source , also  placed  at  the  nose , 
satisfies  the  boundary  condition  at  i = 1: 

aBBSlTSl+  aBBS211TS21  = (dx)  x [X  + UBBS1  TS1  + uBBS2n  TS21_ 

which  yields: 
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where 


a 


BBS! 


Ik 


/vV  - £2  ri2 

r. 

1 


a 


BBS2 


ik 


A ■ v A-v2  -^r\ 

■i  v*ki 
*ri  f 
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.-1  V*k 


U BBSl^  = ” cos^  $T 


i 


u 


BBS2 
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= 2 7 (x.  - Xfe)2  - 0 2 r.2 ' 

-1  Xi 

- 2 (Xi  - xk)  cosh  - 


m 2 

ri=A  +z. 


In  general,  the  strength  of  the  quadratically  varying  source 
of  the  ith  segment  is  given  by: 


i-1 


TS2.  = 

l 


(£HaBBS1U  (fe)i  UbES1u]  Tsl  ~ ^1  [a BBS2!fc )i  "BBS2ik  ] 


S2, 


' aBBS2u  “ UBBS2.. 
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The  end  of  a closing  body  presents  a special  problem  since 
the  influence  coefficients  cannot  be  evaluated  on  the  axis. 

The  boundary  condition  on  the  net  source  strength  at  the 
end  of  ft  closing  body  must  be  used.  The  manner  in  which 
the  strength  of  the  source  varies  along  the  axis  and  the 
strengths  of  the  previously  evaluated  sources  are  known  . 
Therefore,  at  the  end  of  a closing  body,  i = NBODYS 
and  r^  = 0: 

NBODYS 

^NBODYS  " Xl)  TS1  + S ^NBODYS -Xk*  TS2k  ~ ° 

' k = 1 

which  yields: 

NBODYS  -1  ^ 

" <XNBODYS  “ Xl)  TS1  " ^NBODYS  "V  TS2, 

.-■■■■ k - 1 

S2NBODYS  [ ^BODYS  " ^ ^ r)NBODYS  -lj 

It  should  be  noted  that  the  k^  line  source  is  located  at 
the  distance: 

V=xi  - 1 . ‘*ri  - 1 


from  the  nose  of  the  body. 

The  strengths  of  the  doublets  are  determined  in  a similar 
manner.  In  terms  of  the  aerodynamic  influence  coefficients, 
the  boundary  condition  is  written: 


K 


k = 1 
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dz 


where  (a  - grp.)  is  the  local  angle-of-attack,  and 
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Again,  a linearly  varying  doublet  is  placed  at  the  nose 
of  the  body,  the  strength  of  which  is  given  by: 


A quadratically  varying  doublet  is  also  placed  at  the 
nose 
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and  at  all  subsequent  body  stations 


‘“T 
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At  the  end  of  a closing  body,  a quadratic  ally  varying 
doublet  is  defined: 
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The  pressure  coefficients  on  the  body  due  to  the  line 
sources  and  doublets  are  calculated  using  one  of  three 
formulas  (as  specified  by  an  input)  . 

For  the  linear  pressure  coefficient, 

cp  - * 2ob.; 

for  the  nonlinear  pressure  coefficient, 

2 


C = - 2 u + 02  u 2 - v 

p B.  B.  rB_ 


- v 


6 


B. 


and  for  the  "exact"  isentropic  pressure  coefficient, 
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where 
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and 


(8  = - 1 
y = 1.4 


The  lift,  drag,  and  pitching  moments  on  the  body  due  to 
the  line  sources  and  doublets  are  calculated  neglecting 
any  interference  effects  from  the  wing.  Such  interference 
terms  are  added  later.  These  forces  are  determined  by 
integrating  the  pressures  over  the  body.  It  is  convenient 
to  resolve  the  aerodynamic  forces  acting  on  a body  into 
an  axial  force  X,  a normal  force  N,  and  a pitching 
moment  M about  the  nose.  The  corresponding  dimension- 
less coefficients  are  given  by: 

y , 1 , 27r 

r - — = t/~  r’ri7  f Cn  d^dx  ; 

% - qS  SJ  J P 

0 o 
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USAGE: 


N 1 
qS  = If 


r 


costfdtfdx; 


M 

qSc 


1 

Sc 


x • r 


2 tr 


Cp  cos^dtfdx. 


o 


These  coefficients  are  evaluated  in  subroutine  COEFS 
using  a numerical  integration  technique. 

The  total  lift,  drag,  and  pitching  moments  about  an 
arbitrary  point  are  obtained  by  an  appropriate  resolution 
of  forces: 


CT  = C,T  cos  a - Cv  sin  a 
LB  NB  XB 


C~  = C,T  sin  a + C„  cos  a 
DB  nb  XB 


mb  mb  nb  xb 

o 


where  the  moments  are  computed  about  the  point  (x,  z)  , 
c is  the  reference  chord  length,  and  S is  the  reference 
area.  The  forces  and  moments  are  computed  for  the 
half-body  only. 

CALL  KARMOR  (NBODYS,  NTHETA,  XN,  YN,  ZN, 
CPCALC,  VOUT,  ARA,  XP,  ZP,  RFAREA,  XB,  R, 
THETAB,  ZDELTA,  XC,  YC,  ZC,  THETA,  U,  VV, 
WW,  AN1,  CPB,  BBCL,  BBCD,  BBCM) 


COMMON  DATE  (2),  NTAPEA,  NTAPEB,  NTAPEC, 
NTAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  RACE 


DIMENSION  XB  (NBODYS),  R (NBODYS),  THETAB 
(NTHETA),  ZDELTA  (NBODYS),  XC  (NBODY  + NWING), 
YC  (NBODY  + NWING),  ZC  (NBODY  + NWING),  THETA 
(NTHETA),  U (NWING),  VV  (NWING),  WW  (NWING), 

AN1  (NWING),  CPB  (NBODYS,  NTHETA) 
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Input: 


NBODYS  = 
NTHETA  = 
XN  ) 

YN  > 

ZN  ) 

CPCALC = 


VOUT 


ARA 

xp  \ 

ZP  f 

RFAREA  = 

XB 

R 

THETAB  = 

ZDELTA  = 
XC 

YC 

ZC 

THETA  = 
NBODY  = 
NWING  = 
XMACH  = 
U 


vv 

ww 

AN1 

CPB 

BBCL 


Number  of  body  stations. 

Number  of  body  meridian  lines  (or  $ 's). 

x-,  y-  and  z-  coordinates  of  body 
nose. 

Code. 

0. , calculation  of  pressure  coefficients 
to  use  linear  equation. 

1. , calculation  of  pressure  coefficients 
to  use  nonlinear  equation. 

2. , calculation  of  pressure  coefficients 
to  use  "exact"  isentropic  equation. 

Code. 

0. , velocity  components  are  not  to  be 
printed. 

1. , velocity  components  are  to  be 
printed. 

Angle-of- attack  of  body  with  respect 
to  freestream. 

x-  and  z-coordinates  of  point  about 
which  pitching  moments  are  to  be 
computed. 

Reference  area. 

Array  of  x-coordinates  of  body  stations. 
Array  of  body  radii  at  body  stations. 
Array  of  0-angles  of  body  meridian 
lines. 

Array  of  body  cambers  at  body  station 
Array  of  panel  control  point 
x-coordinates. 

Array  of  panel  control  point 
y-coordinates. 

Array  of  panel  control  point 
z-coordinates. 

Scratch  array. 

Number  of  body  panels. 

Number  of  wing  panels. 

Mach  number. 

Array  of  x-components  of  velocity  on 
the  wing  panels  due  to  the  body  sources 
and  doublets. 

Array  of  y-components  of  velocity  on 
the  wing  panels  due  to  the  body  sources 
and  doublets. 

Array  of  z-components  of  velocity  on 
the  wing  panels  due  to  the  body  sources 
and  doublets. 

Array  of  normal  components  of  velocity 
on  the  wing  panels  due  to  the  body 
sources  and  doublets. 

Array  of  pressure  coefficients. 

Lift  of  the  body. 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


BBCD 

BBCM 

ALOG 

SQRT 

COS 

SIN 

ATN1 

FSF 

DERIVS 

COEFS 


= Drag  of  the  body. 

= Pitching  moment  of  the  body 


= (Built-in  functions) 


None 

NBODYS  4 55 

NBODY  100 

NWING  ^ 110 

516310  = 12053g 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  LACKEY 

Computes  perturbation  velocities  and  pressure 
coefficients  at  field  points  due  to  sources  and  vortices  on 
the  wings  and  due  to  vortices  on  the  bodies.  When 
required*  the  freestream  velocity  components  are 
added  to  the  results  to  yield  the  total  velocity  at  the  field 
point.  The  user  selects  the  pressure  coefficient  calcula- 
tion equations  from  among  linear,  nonlinear,  or  "exact" 
isentropic. 

This  subroutine  calls  EVAL1,  and  VEL1  to  compute  the 
peturbation  velocities.  The  pressure  coefficient  is  then 
computed  from  the  appropriate  equation. 

Linear:  C = -2u 

P 

Nonlinear:  C = -2u  + 02  u2  - v2  -w2 

P 

Exact  Isentropic:  C = I [ 1 + 2 M2 

P m2  1 L 

(1  - Q2)]  2 - l} 

where 

u = velocity  component  in  the 
x-direction. 

v = velocity  component  in  the 
y-direction. 

w = velocity  component  in  the 
z-direction. 

M = Mach  number. 

o = angle  of  attack. 

2 2 2 2 
Q = (u  + cosa)  +v  + (w  + sina) . 

A flow  chart  of  the  routine  follows. 
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USAGE: 


COMMON/THICK/THKW,  ARA,  CPCALC,  CAMN,  POP 
COMMON/FLOV1/KACE,  NBODY,  DUM  (5),  XMACH 
COMMON/FLOV5/N1,  N2,  N3,  N4 
CALL  LACKEY  (ISTR,  XB,  YB,  ZB,  U,  V,  W,  CP) 

Input:  THKW  = 1.  indicates  a thick  wing. 

= 0.  camber  only. 

ARA  = angle  of  attack  in  radians. 

CPCALC  = 0.  linear  equations  used  for  C. 

1.  nonlinear  equations  used  for  C. 

2.  "exact"  isentropic  equations 
used  for  C. 

CAMN  = 0.  indicates  velocity  components 

due  to  camber  to  be  computed. 

= 1.  indicates  velocity  components 
due  to  camber  not  to  be  computed. 

KACE  = 1 wing  alone. 

= 2 body  alone. 

= 3 wing  and  body. 

NBODY  = number  of  vortex  panels  on  body. 

XMACH  = Mach  number. 

XB  = x-coordinate  of  field  point. 

YB  = y-coordinate  of  field  point. 

ZB  = z-coordinate  of  field  point. 

ISTR  = 1.  indicates  freestream  velocity 

to  be  added  to  velocity  components. 

= 0.  indicates  freestream  velocity 
not  to  be  added  at  field  point. 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURN: 

RESTRICTIONS: 

STORAGE: 


N1  J 
N2  / 
N3 

N4  ) 

Output:  U 
V 

w 

CP 

EVAL1 

VEL1 

None 

None 

42810  =6548 


= 4 logical  tape  numbers  on 
which  velocity  components 
due  to  the  various  singulari- 
ties are  written  for  use  by 
FLOOUT. 

= x-direction  velocity  component. 
= y-direction  velocity  component. 
= z-direction  velocity  component. 
= Cp  at  field  point. 
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SUBJECT: 


MAP  Function  LOC 


PURPOSE:  To  determine  the  absolute  machine  address  of  a variable 

or  first  location  of  an  array.  This  routine  is  used  only 
in  the  streamline  integration  package  by  DEDIS. 

METHOD:  Using  machine  hardware  instructions  and  standard 

system  conventions,  the  address  of  the  argument  is 
returned  in  the  AC  to  the  calling  program. 

USAGE:  INTEGER  VARADD 


VARADD  = LOC  (VAR) 


Input:  VAR 

= any  array  or  variable  name. 

Output:  VARADD 

= contains  the  address  of  VAR. 

SUBPROGRAMS 

CALLED: 

None 

RESTRICTIONS: 

None 

STORAGE: 

00 

TF 

1! 

o 

i-H 
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SUBJECT:  FORTRAN  IV  Subroutine  MDMATE 

PURPOSE:  To  compute  the  matrix  resulting  from  the  application  of  the 

Lagrange  multipliers  technique  in  minimizing  the  drag  for 
given  wing  constraints. 

METHOD:  The  minimum  drag  of  a wing  in  the  presence  of  a body  for 

given  wing  CL  and  pitching  moment  may  be  determined  by 
applying  the  method  of  Lagrange  multipliers  to  the  system 
of  equations  defining  the  drag.  A function  F is  defined  in 
terms  of  the  pressure  difference  of  the  wing  panels,  pw., 
and  the  auxiliary  variables  (Lagrange  multipliers)  X i 1 
and  X 2 . 


F = D + X1  (L  - L)  + X2  (M  - M) 

The  condition  for  minimum  drag  for  the  constraints  that 
L = L and  M = M is  found  by  setting  the  partial  deriva- 
tives of  F with  respect  to  the  variable  PWj.  > X 1,  and  X2 
equal  to  zero.  The  result  is  the  following  system  of 
linear  equations,  and  the  pressure  difference  across 
the  wing  panels  may  now  be  determined  for  minimum 
drag. 


_2A1  an  -(Ai  a12  + A2  a2l)  • • • “A1  Ai 

r ^ 

Ai(ni  + nBl) 

~<A2  a21  + A1  a12>  “a2 

Pw2 

A2(n2  + nB2> 
. 

~an-xn  An 

PwN 

AN(nN  + nBN) 

"A1  . -an  0 0 

I 

“X1 A1  ' . -xj  AN  0 0 

X2 

k J 

M 

< j 

where  n^  = The  downwash  on  the  wing  due  to  the  body 
sources. 

ng^  = The  downwash  on  the  wing  resulting  from  the 
cancelation  of  normal  velocity  on  the  body  due 
to  the  wing  thickness. 

If  only  the  lift  is  constrained,  the  row  and  column  of  the 
matrix  corresponding  to  X2  are  omitted  and  p^.  is  found 
by  inverting  as  before. 
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USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 


In  this  subroutine,  the  coefficients  of  the  system  of  equa- 
tions are  computed  and  the  inverses  for  the  two  cases  are 
stored  on  a scratch  tape  in  preparation  for  wing  optimiza- 
tion by  a later  link.  The  matrices  are  stored  with  an  end- 
of-file  mark  separating  them. 

CALL  MDMATE 

COMMON  DATE (2),  NTAPEA,  NTAPEB,  NTAPEC, 

NT  APED,  NTAPEE,  NTAPEF,  NT  APE  I,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  KACE 


DIMENSION  WW(115,  115),  XBAR(210),  AREA(210) 


Input: 

XBAR 

= Array  of  panel  centroid  x-coordinates . 

AREA 

= Array  of  panel  areas. 

NBODY 

= Number  of  body  panels . 

NWING 

= Number  of  wing  panels. 

WW 

= Reduced  matrix  of  the  aerodynamic 
influence  coefficients. 

NTAPEE 

= Logical  tape  number  from  which  the 
reduced  matrix  of  the  aerodynamic 
influence  coefficients  is  read. 

NTAPEA 

= Logical  tape  number  on  which  the 
drag  minimization  matrices  is  stored. 

Output: 

WW 

= Drag  minimization  matrix  written  on 
NTAPEA. 

WW"1 

= Inverse  of  the  drag  minimization 

matrix  constrained  for  wing  lift  written 
on  NTAPEA. 

WW-1 

= Inverse  of  the  drag  minimization  matrix 
constrained  for  wing  lift  and  pitching 
moment  written  on  NTAPEA. 

SINVRT  (see  Appendix  B) 

If  an  error  occurs  in  the  inversion  of  the  matrix,  a message 
will  be  written  on  the  output  tape  "ERROR  IN  INVERSION 
OF  DRAG  MINIMIZATION  MATRIX"  followed  by  the  error 
codes  from  subroutine  SINVRT. 
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RESTRICTIONS:  The  matrix  to  be  inverted  must  not  exceed  the  order  112. 


STORAGE:  14218^  * 33612g 
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SUBJECT: 


FORTRAN  IV  Subroutine  MEAN 


PURPOSE:  To  smooth  a set  of  data  points  defining  a single -valued  func- 

tion of  one  variable . 

METHOD:  A sliding  operation  that  deals  with  four  points  at  a time 

((xi»  Yi)»  1 = 1,  2,  3,  4^  is  employed.  Points  whose  ordi- 
nates may  be  changed  are  the  interior  two  points  at  each 
setting  of  the  operation.  The  abscissae  of  the  input  points 
are  not  changed.  A straight  line  is  drawn  from  (xi,  y^)  to 
(x3,  y3)  and  another  straight  line  from  (X2,  y2)  to  (X4,  y4). 

If  the  abscissa  of  the  intersection  of  these  two  lines  lies  in 
the  interval  (x2,  x3),  then  the  points  are  left  as  is,  and  the 
operation  slides  over  one  point  and  begins  anew.  If  the  lines 
are  parallel  or  if  the  abscissa  of  the  intersection  is  outside 
(X2,  x3),  then  new  ordinates  y2  and  y3  are  calculated.  An 
ordinate  on  the  first  line  is  evaluated  at  the  abscissa  x2; 
similarly  an  ordinate  on  the  second  line  is  evaluated  at  the 
abscissa  x3.  The  new  values  y2  and  y3  are  the  mean 
values  of  the  original  ordinates  and  new  ordinates  so 
calculated. 

This  operation  slides  along  the  set  of  points  until  all  interior 
points  have  been  subjected  to  smoothing.  Five  such  passes 
made  over  the  curve  at  each  call  of  MEAN. 

USAGE:  CALL  MEAN  (X,  Y,  N) 

Input:  X - Array  of  abscissae;  a strictly  monotone  sequence 

Y = Array  of  ordinates  to  be  smoothed 
N = Number  of  points 

Output:  Y = Smoothed  ordinates  (the  first  and  last  points 
are  not  subjected  to  smoothing) 

SUBPROGRAM 

CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  The  abscissae  must  be  strictly  monotonic;  thus  vertical 

slopes  are  excluded. 

STORAGE:  163  = 243g 
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SUBJECT: 


FORTRAN  IV  Function  MERR 


PURPOSE:  To  write  error  messages  for  subroutines  in  the  geometric 

definition  portion  of  the  program . 

METHOD:  An  error  array  NU  is  given.  NU(1)  is  an  error  code  that 

should  be  the  same  as  a given  success  code  IOK  if  an  error 
condition  does  not  exist.  NU(2),  if  greater  than  zero,  is  the 
number  of  an  output  tape  on  which  an  error  message  can  be 
written.  NU(3)  is  an  error  message  limiter;  a message  is 
not  to  be  written  unless  NU(3)  is  greater  than  1.  M is  an 
error  message  number. 

If  NU(1)  = IOK,  the  function  value  (K)  is  set  to  zero,  and 
no  further  action  is  necessary.  Otherwise,  NU(3)  is  de- 
creased by  1;  then  if  NU(2)  < 0 or  if  NU(3)  < 0,  K is  set 
to  -1  and  return  is  made  to  the  calling  program.  Other- 
wise, the  following  message  is  written: 

’’ERROR  i,  CODE  j,  IN  SUBROUTINE  xxxxxx  DURING 
GEOMETRIC  DEFINITION” 

where  i - M,  j = NU(1),  and  xxxxxx  is  the  given  name  of 
the  subroutine  in  which  the  error  occurred. 


USAGE: 

DIMENSION 

NU(3) 

K = MERR  (NU,  IOK,  M,  SR) 

Input: 

NU 

= Error  array. 

IOK 

= Success  code. 

M 

= Error  message  number. 

SR 

= Subroutine  name  (alphameric). 

Output: 

Message  on  error  tape. 

SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

87i0- 

1278 
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SUBJECT:  FORTRAN  IV  Function  NWEED 

PURPOSE:  To  remove  excess  points  from  an  array  of  points  in  m -space. 

METHOD:  Each  point  is  compared  with  the  previous  point.  If  all  corre- 

sponding coordinates  are  the  same  with  given  tolerances, 
that  point  is  eliminated  by  shifting  the  balance  of  the  array 
and  reducing  the  number  of  points  by  1.  However,  if  the 
last  point  is  too  near  its  neighbor,  the  neighbor  is  discarded 
and  the  last  point  retained. 

USAGE:  DIMENSION  A(M,  N),  EP(M) 

NN  = NWEED  (A,  N,  M,  EP) 

Input:  A = Given  array  of  points. 

N = Number  of  points  in  A. 

M = Space  dimension. 

EP  = Array  of  tolerances,  one  for  each  coordinate. 
Output:  A = Weeded  array  of  points. 

NN  = Number  of  points  in  the  weeded  array  (NN 
may  have  the  same  storage  location  as  N). 

SUBPROGRAM 

CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  N •>  1 and  M > 0.  If  any  EP(i)  < 0,  no  weeding  will  be 

done.  For  weeding  only  on  selected  coordinates,  EP  is 
set  to  some  large  value  for  the  remaining  coordinates. 

STORAGE:  1531()  = 231g 
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SUBJECT: 

PURPOSE: 


METHOD: 


tape,  which  is  then  used  as  the  input  tape  for  the  remainder 
of  the  program;  (5)  writes  the  data  cards  on  the  output  tape. 

Then  function  INTURP  is  used  to  read  a data  card,  to  write 
its  contents  on  the  output  tape,  and  to  see  whether  it  is  a 
command  card.  A command  card  has  the  words  DEFINE, 
DEFINE,  PANEL,  AERODY,  AREODY,  END  OF  or  END 
OF  in  columns  1-6;  the  contents  of  the  remaining  columns 
are  written  on  the  output  tape  but  are  not  otherwise  used. 

If  the  data  card  is  a command  card,  the  appropriate  action 
is  taken;  otherwise,  successive  cards  are  read  until  a 
command  card  is  found  (this  feature  permits  the  insertion 
of  comment  cards  or  blank  cards  immediately  before  any 
command  card) . 

The  command  DEFINE  (or  DEFINE)  results  in  a call  to 
subroutine  GEOMD.  On  return,  data  cards  are  again  read 
until  a command  card  is  encountered.  If  any  GEOMD  data 
cards  were  not  read  because  of  error,  they  will  be  listed 
by  INTURP. 

Subroutine  TFLAT  is  called  when  a PANEL  card  is  read. 

If  TFLAT  detects  an  error,  it  skips  over  data  cards  until 
the  input  tape  is  positioned  just  in  front  of  a DEFINE  or 
END  OF  card;  OPCAM  then  goes  on  to  process  this  card 
in  the  usual  way.  But  if  TFLAT  signals  success,  then  the 
argument  NOBODY  (set  by  TFLAT)  is  examined.  If  NOBODY 
= -1,  meaning  a body-alone  case,  OPCAM  goes  on  to  read 
the  next  data  card;  otherwise,  OPCAM  calls  subroutine 
PANEL. 

OPCAM  calles  subroutine  AERO  when  an  AERODY  (or  AERODY) 
card  is  read.  An  END  OF  (or  END  OF)  card  results  in  pro- 
gram termination. 


FORTRAN  IV  Program  OPCAM 

To  interpret  data  commands  and  control  flow  through  the 
Program  for  Analysis  and  Design  of  Supersonic  Wing-Body 
Combinations. 

The  program  first  calls  subroutine  OPCAMI,  which  carries 
out  the  following  operations:  (1)  assigns  logical  tape  numbers 
to  tape  symbols  (in  COMMON) ; (2)  obtains  the  data  and 
places  it  in  COMMON;  (3)  writes  the  program  title  on 
the  output  tape;  (4)  transfers  the  data  cards  to  a scratch 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


AERO 

CLOK 

GEOMD 

ENTURP 

TFLAT 

PANEL 

OPCAM1 

Program  errors  are  dealt  with  in  the  program  section  where 
they  occur. 

Each  time  that  INTURP  reads  and  writes  a data  card, 
OPCAM  writes  (on  the  same  line,  near  the  right  margin) 
the  word  TIME  followed  by  the  time  of  day.  The  time  of 
day  is  found  by  a subroutine  CLOK.  The  basic  program 
deck  contains  a dummy  subroutine  CLOK  which  merely 
returns  blanks.  A proper  subroutine  CLOK  may  replace 
the  dummy  at  the  installation  where  the  program  is  used. 

1«1„  ’ 2308 
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SUBJECT: 


FORTRAN  IV  Subroutine  OPCAMI 


PURPOSE: 

METHOD: 


USAGE: 


To  perforin  initialization  chores  for  the  main  program 
OPCAM. 


Tape  symbols  are  assigned  as  follows: 


Symbol  Tape  Number 


LIN 

LO 

LI 

LA 

LB 

LC 

LD 

LE 

LF 


5 

6 
9 

1 \ 
2 

3 

4 

7 

8 


Description 

System  input  tape. 

System  output  tape. 

Input  tape  used  by  remainder  of 
program. 


Scratch  tapes. 


Subroutine  DATE  is  called  to  obtain  the  date.  A title  is 
written  on  the  output  tape.  Tape  LI  is  rewound.  Then  all 
data  cards  are  read  with  FORMAT  (13A6,  A2)  from  tape 
LIN,  written  on  tape  LO  with  FORMAT  (1H  14A6),  and 
written  on  tape  LI  with  FORMAT  (13A6,  A2);  the  last  data 
card  is  signaled  by  the  word  END  OF  or  END  OF  (in  case 
the  letter  O is  mistakenly  keypunched  as  the  number  zero) 
in  columns  1-6.  Then  an  EOF  is  written  on  tape  LI,  and  it 
is  rewound. 


COMMON  DAT(2) , LA,  LB,  LC,  LD,  LE,  LF,  LI,  LO 
CALL  OPCAMI 


Output:  DAT  = Date  (alphameric) 


LA 
LB 
LC  ► 
LD 
LE 


Scratch  tape  numbers. 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 


STORAGE: 


LF  = Scratch  tape  number, 
LI  = Input  tape  number. 

LO  = Output  tape  number. 


DATE 

None 

An  END  OF  card  must  be  placed  at  the  end  of  the  data  deck. 
If  the  END  OF  card  does  not  appear  in  the  data  deck,  the 
job  will  be  terminated  by  the  EOF  on  the  system  input  tape. 
If  the  END  OF  card  is  not  the  physically  last  card,  only 
the  data  preceding  it  will  be  read  by  the  remainder  of  the 
program. 

235-j^q  353g 
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SUBJECT: 

PURPOSE: 


METHOD 


USAGE: 


FORTRAN  IV  Subroutine  OPTIM3 

Given  four  successive  points  on  the  graph  of  a function  of 
a single  variable,  to  generate  additional  points  between 
one  selected  pair  of  the  given  points,  the  spacing  of  the 
additional  points  to  be  such  that  straight-line  segments 
joining  them  will  represent  the  given  function  with  a pre- 
scribed maximum  error. 

Four  successive  arguments  and  their  respective  ordi- 
nates yj  are  input  to  the  subroutine,  together  with  a 
tolerance  z and  integer  k to  indicate  the  interval  (x^, 
xk+i)  to  consider.  OPTIM3  then  generates  the  biquadratic 
interpolating  function  described  in  subroutine  BITURP. 

This  function  is  a linear  combination  of  two  quadratics  on 
the  interval  (x2,  X3),  hence  it  is  there  a cubic;  on  either 
of  the  other  possible  intervals  it  is  a quadratic.  In  any 
case,  the  function  has  a continuous  first  derivative,  unlike 
a Lagrangian  interpolation  polynomial  of  any  order. 

Having  generated  the  interpolation  function  p,  OPTIM3 
computes  its  function  value  y,  its  slope  S,  and  its  radius 
of  curvature  R,  all  at  some  particular  x (at  x^  in  the  first 
instance),  hi  a small  neighborhood  of  (x,  y)  the  function 
<P  can  be  represented  by  a circular  arc  of  radius  R,  tangent 
at  (x,  y)  to  <p.  OPTIM3  then  computes  the  central  angle 
of  that  arc  so  that  the  arc  and  its  chord  have  a maximum 
separation,  in  the  y-direction,  of  z.  Then  the  x- component 
Ax  of  that  chord  is  the  distance  from  the  current  argument 
x to  the  next  argument  (unless  Xj^  has  been  reached),  and 
the  process  continues. 


DIMENSION  X(4),  Y(4,)  A(200),  B(200) 

CALL  OPTIM3  (X,^  Y,  Z,  A,  B,  K,  L,  M) 

Input:  X = Array  of  x-coordinates  of  given  points. 

= Array  of  y -coordinates  of  given  points. 
= Allowable  tolerance  (in  y direction). 


Y 

Z 

K 


= Subscript  of  x at  lower  end  of  interval 
to  be  interpolated. 


Output:  A = Array  of  x-coordinates  of  interpolated  points. 

A(l)  = X(K),  A (2)  = x of  first  interpolated 
point,  etc. 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


B = Array  of  y-coordinates  of  interpolated  points. 
B(l)  = Y(K),  B(2)  = y of  first  interpolated 
point,  etc. 

L = One  mofe  than  the  number  of  interpolated 
points  generated  by  the  routine. 

M = Error  indicator,  which  is  1 if  success. 


ACOS 

ATAN 

COS 

SQRT 


(Built-in  functions) 


M = 0 if  X(l)  = X(4);  M = 2 if  L = 200  and  more  points  are 
needed. 


The  Xj  must  form  a strictly  monotonic  sequence,  though 
not  necessarily  equally  spaced.  Note  that  the  A and  B arrays 
contain  the  first  given  point,  but  not  the  last. 

59410  = H22g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  OPTMW 

For  wing  alone,  to  compute  the  pressure  difference  across 
wing  panels  for  a wing  op^timized  for  minimum  drag. 

The  method  is  outlined  in  the  description  of  subroutine 
MDMATE.  From  the  matrix  inverse  computed  in  MDMATE, 
the  following  multiplication  yields  the  pressure  difference 
across  the  panels. 


r ^ 

mm 

**1 

_2A1  all  -(Ax  a12  + A2  a21)  ...  -AX  -Xl  Aj 

-1 

0 

^2 

“*A2  a21  + A1  a12*  "Ag 

0 

• 

. i 

• 

' 

• < 

. 

~AN  “xN  an 

0 

*1 

“A1  . . -an  0 0 

L 

x2 

"X1  Ax  . . -Xx  an  0 0 

M 

j 

— 

If  only  the  lift  is  constrained,  the  row  and  column  of  the 
matrix  corresponding  to  X2  is  omitted  and  p^.  is  found 
as  before. 


CALL  OPTMW (NW,  NT  APEX,  A,  B,  CONSNT,  CLBAR, 
XCPBAR,  RFAREA , AREA,  CL) 

DIMENSION  A(l),  B(l),  AREA(l),  CL(1) 

Input:  NW  = Number  of  wing  panels. 

NTAPEX  = Logical  number  of  tape  from  which  the 
inverse  of  the  minimum  drag  matrix 
is  read. 


A = Dummy  array  used  by  the  subroutine. 

B = Dummy  array  used  by  the  subroutine. 


CONSNT  = 0. , indicates  wing  optimization  for 
wing  C-^  constraint. 

= 1. , indicates  wing  optimization  for 
wing  and  pitching  moment  con- 
straints. 


CLBAR  = Wing  coefficient  of  lift  constraint. 
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XCPBAR  = x-coordinate  of  the  wing  center  of 
pressure  constraint. 


RFAREA  = Wing  reference  area. 

/ 

AREA  = Array  of  wing  panel  areas. 


Output:  CL  = Array  of  the  pressure  difference 

across  the  wing  panels  optimized  for 
minimum  drag. 


SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

mio 
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SUBJECT: 

PURPOSE: 

METHOD: 

j 

r 

< 


I 


FORTRAN  IV  Subroutine  QPTMWB 

In  the  presence  of  a body,  to  compute  the  pressure  differ- 
ence across  wing  panels  for  a wing  optimized  for  minimum 
drag. 

The  method  is  outlined  in  the  descritpion  of  subroutine 
MDMATE.  From  the  matrix  inverse  computed  in  MDMATE 
the  following  multiplication  is  carried  out  yielding  the 
pressure  difference  across  the  panels. 
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where  n. 

1 


The  downwash  on  the  wing  due  to  body  sources 
.sources 
NBODY 

Y D. . • (-  n^  ) is  the  downwash  on 
j = 1 j the  wing  due  to  the 

cancellation  of  the 
normal  velocity  on 
the  body  due  to  wing 
thickness . 

The  interference  influence  coefficients 
matrix. 


Downwash  on  the  body  due  to  wing  sources 


L - ' Sw  is  the  lift  constraint 

M - X * • S,^  is  the  pitching  moment 

constraint 

If  only  the  lift  is  constrained,  the  row  and  column  of  the 
matrix  corresponding  to  u is  omitted  and  p„7  is  found 
as  before . Wi 
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CALL  OPTMWB(NW,  NB,  NTAPEX,  NTAPEY,  THICK, 

A,  B,  ALPHA,  ABX,  ALPHAX,  AREA,  CONSNT,  CLBAR, 
XCPBAR,  RFAREA,  CL) 

DIMENSION  A(l) , B(l),  ALPHA(l) , ABX(l),  ALPHAX(l), 
AREA(l) , CL(1) 


Input:  NW 

NB 

NTAPEX 

NTAPEY 


Number  of  wing  panels. 

Number  of  body  panels. 

Logical  number  of  the  tape  from 
which  the  inverse  of  the  minimum 
drag  matrix  is  read. 

Logical  number  of  the  tape  from 
which  D is  read. 


THICK 


A 

B 

ALPHA 

ABX 

ALPHAX 

AREA 

CONSNT 


CLBAR 

XCPBAR 


RFAREA 
Output:  CL 


SUBPROGRAM 

CALLED; 

None 

ERROR  RETURNS; 

None 

RESTRICTIONS; 

None 

STORAGE; 

23910 

0. , wing  thickness  effects  not  to  be 
included. 

1. , wing  thickness  effects  to  be  in- 
cluded. 

Dummy  array  used  by  the  sub- 
routine. 

Dummy  array  used  by  the  sub- 
routine . 

Dummy  array  used  by  the  sub- 
routine. 

Array  of  normal  on  the  body  due  to 
a given  wing  thickness  distribution. 

Array  of  downwash  values  on  the 
wing  due  to  body  sources. 

Array  of  panel  areas . 

0 • , wing  optimization  for  wing  CL 
constraint 

1. , wing  optimization  for  wing  C, 
and  pitching  moment  constraints. 

Wing  coefficient  of  lift  constraint. 

x-coordinate  of  the  wing  center  of 
pressure  constraint. 

Wing  reference  area. 

Array  of  the  pressure  difference 
across  the  wing  panels  optimized 
for  minimum  drag. 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 


FORTRAN  IV  Subroutine  OUTB 

To  print  out  the  data  for  body  panels  in  a prescribed  format. 

The  data  for  the  region  of  the  body  represented  by  panels 
are  printed  in  the  following  format: 

THETA  (DEG. ) ©2  • • • ®NTHETA 

ROW  NO. 

1 Zl,l  Zl,2  * * • Z1,NTHETA 

2 Z2, 1 

3 


NROW  zNROW,  1 


ZNROW  .NTHETA 


The  numbers  running  horizontally  represent  the  angles,  0 
around  the  body  starting  at  the  crown  line  and  proceeding 
to  the  keel  line.  The  numbers  running  vertically  represent 
the  rows  of  panels  starting  from  the  furthest  forward  panel 
and  working  aft. 


CALL  OUTB  (NTAPEO,  NBODY,  NTHETA,  NROWB, 
THETA,  Z) 

DIMENSION  Z (NBODY),  THE TA (NTHE TA) 

= Logical  number  of  output  tape. 

= Number  of  body  panels. 

= Number  of  0 angles. 

= Number  of  rows  of  panels. 

= 0 angles. 

= Data  to  be  output. 


Input: 

NTAPEO 

NBODY 

NTHETA 

NROWB 

THETA 

Z 

None 

None 
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RESTRICTIONS:  None 

STORAGE:  119 

10 


SUBJECT: 


FORTRAN  IV  Subroutine  OUTPTB 


PURPOSE: 

METHOD: 

USAGE: 


To  write  body  paneling  data  on  output  tape  as  printout  and 
on  scratch  tape  for  use  in  other  program  sections. 

Program  uses  direct  write  tape  statements  to  write  body  pan- 
eling data  on  output  tape  and  on  scratch  tape  (see  Appendix  D 
for  tape  format).  Program  uses  a tolerance  of  ±0.00001  and 
sets  all  small  negative  and  positive  values  equal  to  0.  Pro- 
gram also  checks  and  eliminates  any  trivial  secondary  panel 
parts.  An  input  tolerance  is  used  for  this  check. 

COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) . 

Input:  NTAPE2 

NWRITE 

Output:  NBODY 

COMMON  /COM1/  (See  subroutine  PANEL) 

Input:  NPER 

NPER1 
NPLANE 
NPLN1 

COMMON  /COM2/  (See  subroutine  BODY) 

Input:  KPANEL 

XCOR 
YCOR 
ZCOR 
XINT 
YINT 
ZINT 
XCEN 
YCEN 
ZCEN 
XCON 
YCON 
ZCON 
AREA 
THETA 
ALPHA 
CHORD 

CALL  OUTPTB 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


SQRT  (Built-in  function) 
None 

139210  = 2560g 
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SUBJECT: 


FORTRAN  IV  Subroutine  OUTPTW 


PURPOSE: 

METHOD: 


USAGE: 


To  write  wing  paneling  data  on  output  tape  as  printout  and 
on  scratch  tape  for  use  in  other  program  sections. 

Program  uses  direct  write  tape  statements  to  write  wing 
paneling  data  on  output  tape  and  on  scratch  tape  (see  Appen- 
dix D for  tape  format).  Program  uses  a tolerance  of 
±0.00001  and  sets  all  small  negative  and  positive  values 
equal  to  0.  Program  also  checks  all  secondary  panel  parts 
of  two-part  panels  on  inboard  and  outboard  columns  and 
eliminates  any  "small"  parts.  An  input  tolerance  is  used 
for  this  check. 

COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description). 

Input:  NTAPE2 

NWRITE 

Output:  NWING 

COMMON  /COM1/  (See  subroutine  PANEL) 

Input:  KSTART 

KEND 
NPER 
NPER1 
NPLANE 
NPLN1 

COMMON  /COM2/  (See  subroutine  WING) 

Input:  KPANEL 

XCOR 
YCOR 
ZCOR 
XINT 
YINT 
ZINT 
XCEN 
YCEN 
ZCEN 
XCON 
YCON 
ZCON 
AREA 
THETA 
ALPHA 
CHORD 

CALL  OUTPTW 
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SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  OUTW 

To  print  out  the  data  for  wing  panels  in  a prescribed  format. 

The  data  for  the  wing  panels  are  output  in  the  following  format: 

SPANWISE  STATION  1 2 3 . . . NCOL 

CHORDWISE  STATION 

1 Zl,l  Zl,2  * * * * zi,NCOL 

2 Z2,l 

3 


NBCW  ZNROW,  1 ....  zNROW,NCOL 

The  numbers  running  horizontally  represent  NCOL  columns 
of  panels  from  inboard  to  outboard,  and  the  numbers  running 
vertically  represent  NROW  rows  of  panels  from  the  leading 

to  the  trailing  edge . 

USAGE:  CALL  OUTW  (NTAPEO , NWING,  NCOLW,  NROWW,  Z) 

DIMENSION  Z (NWING) 

Input:  NTAPEO  = Logical  number  of  output  tape. 

NWING  = Number  of  wing  panels. 

NCOLW  = Number  of  chordwise  columns  of  panels. 

NROWW  = Number  of  rows  of  panels  in  a chordwise 
column. 

Z = Data  to  be  output. 

SUBPROGRAM 
CALLED:  None 


ERROR  RETURNS:  None 

RESTRICTIONS:  None 

STORAGE:  119, . - 167a 

10  8 
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SUBPROGRAM 

CALLED: 


None 


ERROR  RETURNS:  None 

STORAGE:  161210  = 3114g 
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SUBJECT: 


FORTRAN  IV  Subroutine  PANEL 


PURPOSE : 
METHOD: 


To  serve  as  control  program  for  geometry  paneling  sub- 
routines. 

Program  first  reads  control  card  used  in  later  subroutines 
to  calculate  coordinates  of  panel  control  point.  Program 
then  reads  control  card  containing  literal  name  and  transfers 
to  appropriate  subroutine.  Either  the  program  transfers 
to  the  subroutine  BODY  or  to  the  subroutine  WING,  or  the 
program  returns  to  the  subroutine  OPCAM. 

The  program  contains  the  following  labeled  COMMON 
statement  that  occurs  in  all  lower  level  geometry  paneling 
subroutines: 

COMMON/ COMl/KODEB,  KODEW,  KODEWU,  KODEI, 
KODEC,  XPER,  YPER,  KOPTB,  KOPTW,  KOPTF, 

NUMS,  KTYPE , KSTART,  KEND,  KINT,  X3(16), 

YI(16),  ZI(16),  NPER,  NPER1,  NPLANE , 

NPLN1 

KODEB  = Code  for  body  definition  error. 

KODEW  = Code  for  wing  definition  error. 

KODEWU  = Code  for  error  in  wing  thickness  (or 
camber)  calculations. 

KODEI  = Code  for  body-wing  intersection  definition 
error. 

KODEC  = Code  for  panel  control  point  location.  If 
KODEC  = 0,  panel  control  point  is  located 
on  the  streamwise  chord  through  the 
panel  centroid.  If  KODEC  = 1,  input 
value  for  YPER  is  used  to  locate  control 
point. 

XPER  = Fraction  of  local  streamwise  panel  chord 
at  which  panel  control  point  is  located. 
0.<XPER<1. 

YPER  = Fraction  of  local  spanwise  panel  chord  at 
which  panel  control  point  is  located. 

0.  < YPER  <1. 

NOTE:  If  YPER  = 0,  panel  control  point 
is  located  on  the  streamwise  chord  through 
the  panel  centroid. 
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USAGE: 


KOTPB 


KOPTW 


KOPTF 


NUMS 


KTYPE 

KSTART 

KEND 

KINT 


XI 

YI 

ZI 

NPER 

NPER1 

NPLANE 

NPLN1 


= Code  for  additional  body  panel  card  input. 
If  KOPTB  = 1,  body  panel  corner  points 
are  input  on  cards.  If  KOPTB  = 0,  other- 
wise. 

= Code  for  additional  wing  panel  card  input. 
If  KOPTW  = 1,  wing  panel  corner  points 
are  input  on  cards.  If  KOPTW  = 0, 
otherwise. 

= Code  for  additional  wing  panel  card  input. 
If  KOPTF  = 1,  actual  wing  surface  coordi- 
nates are  input  on  cards.  If  KOPTF  = 0, 
otherwise. 

= Number  of  airfoil  sections  for  which  wing 
surface  coordinates  are  read  as  additional 
card  input. 


= Codes  for  internal  program  control. 

= Code  for  body -wing  intersection.  If 
KINT  = 1 , body -wing  intersection  has  been 
requested  and  calculated.  IfKINT  = 0, 
otherwise. 

_ x,  y,  z coordinates  of  body-wing 
intersection. 

= Number  of  columns  of  panels  plus  one. 

= Number  of  columns  of  panels. 

= Number  of  rows  of  panels  plus  one. 

= Number  of  rows  of  panels. 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) . 

Input:  NTAPE1 

NTAPE2 
ND1 
NREAD 
NWRITE 
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CALL  PANEL 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


WING 

BODY 

INTURP 

Error  messages  indicate  whether  error  occurred  in  reading 
various  geometry  definitions  from  scratch  tape. 

1120810  = 25710g 
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SUBJECT: 


FORTRAN  IV  Subroutine  PARTY 


PURPOSE: 


METHOD: 


USAGE: 


To  partition  velocity  components  due  to  the  surface  dis- 
tribution of  vorticity  in  preparation  for  use  in  later  aero- 
dynamic links. 

The  velocity  components  are  read  from  a scratch  tape 
written  by  subroutine  EVAL  in  the  following  form,  where 
a column  is  written  as  a logical  record. 


UBB 

UBW 

VBB 

VBW 

WBB 

Wbw 

UWB 

uww 

VWB 

vww 

WWB 

w 

WW 

where  the  subscripts  are  given: 

BB  = Influence  on  the  body  due  to  the  body 

WB  = Influence  on  the  wing  due  to  the  body 

BW  = Influence  on  the  body  due  to  the  wing 

WW  = Influence  on  the  wing  due  to  the  wing 

The  velocity  components  are  reordered  to  a partitioned 
form  with  an  end-of-file  separating  the  partitions. 


UBB 

UWB 

UBW 

uww 

VBB 

VWB 

VBW 

vww 

_WBB_J 

_WWB_ 

_wBW 

www 

CALL  PARTV 

COMMON  DATE  (2),  NTAPEA,  NTAPEB,  NT  APEC, 

NT  APED,  NTAPEE , NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  RACE 

DIMENSION  U(110),  V(110),  W(110),  UU(110),  VV(110), 
WW(110) 

Input:  NTAPEB  = Logical  tape  number  from  which  the 

velocity  components  are  read. 
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NT  APED  = Logical  tape  number  on  which  the 
velocity  components  are  written. 


SUBPROGRAM 

CALLED: 

i 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 

i 

I 

| 


NWING  = Number  of  wing  panels. 
NBODY  = Number  of  body  panels. 


U,  V,  W = Velocity  components  in  random 
order  on  logical  tape  NTAPEB. 

Output:  U,  V,  W = Velocity  components  in  a specified 

order  written  on  logical  tape  NTAPED. 


None 

None 

0 < NBODY  < 100 
0 < NWING  < 110 

109910  =2113, 
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SUBJECT: 


FORTRAN  IV  Subroutine  POLXN 


PURPOSE:  To  find  the  intersections  of  an  m -dimensional  polygonal  arc 

and  a plane  (or  line , if  m = 2) . A polygonal  arc  is  defined 
as  a set  of  points  consecutively  connected  by  straight  lines . 

METHOD:  Consider  any  two  consecutive  points  in  the  polygonal  arc  P, 

say  Pj  and  Pi+i.  If  Pi  (or  Pi+i)  lies  within  a given  dis- 
tance EP  of  the  plane , it  is  said  to  lie  in  the  plane . If  one 
point  lies  in  the  plane,  that  point  is  returned  as  an  inter- 
section. If  both  points  Pi  and  Pi+i  lie  in  the  plane  (i.e. , 

the  line  segment  Pi  Pi+i  is  contained  in  the  plane),  only 
the  end  points  of  that  line  segment  are  returned  as  inter- 
sections. If  Pi  and  Pi+i  lie  on  opposite  sides  of  the  plane, 

the  intersection  of  the  line  segment  Pi  Pi+i  with  the  plane 
is  returned.  The  subroutine  stops  processing  points  when 
a specified  maximum  number  of  intersections  has  been 
found.  The  point  subcripts  associated  with  any  intersection 
are  also  returned. 

USAGE:  DIMENSION  C(M+1),  P(M,  N),  Q(M,  MAX),  LQ(2,  MAX) 

CALL  POLXN  (C,  P,  M,  N,  EP,  MAX,  Q,  LQ,  L) 

Input:  C = Coefficients  of  the  plane 

Clxl  + C2X2  + • • • + CMXM  + CM+1  = °* 

P = Array  of  point  coordinates 

xll>  x21*  •••»  XM1*  x12 * x22»  XM2>  * 

M = Dimension  of  hyperspace. 

N = Number  of  points  in  P. 

EP  = Tolerance. 

MAX  = Maximum  number  of  intersections  to  be 
found. 

Output:  Q = Array  of  intersection  points. 

LQ  = Array  of  point  numbers  of  points  in  P that 
are  adjacent  to  points  in  Q ; for  instance , 
if  an  intersection  in  Q is  between  the  fourth 
and  fifth  points  of  P,  the  corresponding 
elements  of  LQ  are  (4,  5);  if  point  i in  P 
lies  in  the  plane  (or  within  distance  EP 
from  it) , then  the  point  i appears  in  Q , 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


and  the  corresponding  elements  in  LQ 
are  (i,  i). 

L = Number  of  intersection  points  in  Q ; 

L = 0 if  no  intersections  are  found. 


SQRT  (Built-in  function) 

L will  be  returned  as  -1  if  M < 0,  or  if  MAX  < 0,  or  if 
all  of  the  coefficients  C are  zero. 

If  any  points  are  identical  and  lie  in  the  plane , each  such 
point  will  be  returned  as  an  intersection. 

26810  - 4148 
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SUBJECT: 


FORTRAN  IV  Subroutine  QRAT 


PURPOSE: 


METHOD: 


USAGE: 


To  find  the  coefficients  of  the  quadratic  that  passes  through 
three  given  points , and  optionally  to  evaluate  the  quadratic 
at  a given  value  of  x. 


The  quadratic  equation  is 

y = Ci  + C2  x + C3  x2 

Let  (xj,  yi),  i = 1,  2,  3 be  the  three  given  points.  Then 
if  no  two  points  have  the  same  x -coordinate , 


^ - - 

c2  = (Y3  - Yl) / (x3  - xi)  - c3  (X3  + XX) 
Ci  = y2  - (C2  + c3  x2)  x2 


The  quadratic  is  evaluated  for  a given  value  of  x if  a code 
is  positive. 


DIMENSION  X(l),  Y(l),  C(3) 

CALL  QRAT(X,  Y,  IXY,  KODE,  XI,  YI,  C,  NU) 

Input:  X = Location  of  the  x-coordinate  of  the  first 

point. 

Y = Location  of  the  y-coordinate  of  the  first 
point. 

IXY  = Skip  number  for  X and  Y.  IXY  = location 
of  wi+1  minus  the  location  of  w^,  where 
w is  either  x or  y and  i = 1 or  2.  For 
example,  IXY  = 1 if  X and  Y are  each 
dimensioned  3.  Or  if  an  array 
W = (xlt  y1#  x2,  y2,  x3,  y3)  then  CALL 
QRAT  (W,  W(2),  2,  . . . ) may  be  used  to 
avoid  shifting  xi  and  yi  to  separate  arrays 

KODE  = If  KODE  > 0 , the  quadratic  (if  found) 
will  be  evaluated  at  x = XI  and  the  re- 
sult stored  in  YI.  Otherwise,  XI  and 
YI  are  not  used. 

XI  = See  KODE. 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


Output:  YI  = See  KODE. 

C = Array  of  quadratic  coefficients 

C = (C!,  C2,  C3). 

NU  = An  error  code  that  is  zero  if  QRAT  is 
successful. 

None 

NU  = 1 if  any  two  of  the  given  points  have  the  same  x- 
coordinate. 

IXY  may  not  be  zero;  it  may  be  negative  if  the  point  coor- 
dinates are  stored  in  descending  core  locations. 

15710  = 2358 
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SUBJECT: 


FORTRAN  IV  Subroutine  READ 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 


To  provide,  as  options,  three  methods  of  inputting  an  array 
of  values. 

The  subroutine  allows  control  over  the  form  of  input  to  the 
program  by  means  of  a literal  word  on  a data  card.  Two 
words  are  stored  in  the  program  Data  Dictionary.  The  first 
control  word  is  CONSTANT , of  which  the  first  six  letters 
CONSTA  are  stored.  The  second  word  is  GIVEN.  If  the 
word  on  the  data  card  matches  either  of  the  two  control 
words,  transfer  in  the  program  is  made  accordingly.  The 
third  option  is  provided  by  arbitrary  letters  in  the  first  six 
columns  of  the  input  card.  The  three  options  provided  are: 

1)  If  the  first  data  card  contains  CONSTANT,  the  program 
expects  one  additional  data  card  on  which  the  first  field 
(columns  1-10)  contains  a value.  This  value  is  then  set 
in  the  array  S. 

2)  If  the  first  data  card  contains  GIVEN,  the  program  ex- 
pects to  read  an  array  of  values  off  a specified  logical 
tape  unit. 

3)  If  the  data  card  contains  any  arbitrary  alphanumeric 
characters , the  program  expects  to  read  an  array  of 
values  from  data  cards  punched  in  a seven -field,  ten- 
digit format. 

CALL  READ  (NTAPEI , NTAPEO , NTAPEC , NM,  S) 
DIMENSION  S(NM) , DICT(2) 

Input:  NTAPEI  = Logical  number  of  input  tape. 

NTAPEO  = Logical  number  of  output  tape. 

NTAPEC  = Logical  number  of  scratch  tape,  if 
option  2. 

NM  = Number  of  values  in  the  input  array. 

Output:  S = Array  of  values. 


INTURP 

None 
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RESTRICTIONS: 


None 


STORAGE: 


13110  = 2038 


315 


SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  REDUCE 

To  form  the  “reduced”  aerodynamic  influence  coefficients 
matrix  and  three  additional  matrices  in  preparation  for 
use  in  later  links. 


The  aerodynamic  influence  coefficients  matrix  is  com- 
posed of  the  normal  velocity  components  induced  by  a 
unit  pressure  difference  on  each  panel. 

The  matrix  may  be  written  in  terms  of  the  sub-matrices 


M 

M 

1 

pB|  | 

nBWS 

j>»] 

[Aww] 

• { 
1 

pwj  I 

dZc  n 

dx  _(a'_  “wb 

where 


ABB 

awb 

"^BW 

AWW 

^WS 

dZc 

dx 


= The  influence  on  the  body  due  to  the  body 

= The  influence  on  the  wing  due  to  the  body 

= The  influence  on  the  body  due  to  the  wing 

,=  The  influence  on  the  wing  due  to  the  wing 

= The  normal  velocity  component  on  the  body 
due  to  wing  sources 

= The  slope  of  the  wing  panels 


a = The  angle  of  attack 

n..™  = The  normal  velocity  component  on  the 

W 15 

wing  due  to  the  body 

The  matrix  equation  is  solved  for  pfi  and  pw< 


{pb}  [abb]  |{nBws}  + [abw]{pw}| 

{‘“w(  = [au]'1J[awb][abb]'1  kwsMf5-  - "bw4( 

where  [a|(]  =[[\Vw]  '[awb]  [abb]  1 [abw]] 
is  referred  to  as  the  “reduced”  aerodynamic  matrix. 

The  “reduced”  matrix  is  then  written  on  logical  tape 
NTAPEE. 

The  additional  matrices  formed  are 

[awb]  [abb  ] 

\^BB  ] [^W  ] 
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Three  matrices  are  written  on  logical  tape  NTAPEF  in 
the  order  [ABb1  A M . [E]  with  an  end-of-file 
written  after  each  matrix. 


USAGE: 


CALL  REDUCE 


COMMON  DATE  (2),  NTAPEA,  NTAPEB,  NTAPEC, 

N TAPED,  NTAPEE,  NTAPEF,  NTAPEI,  NTAPEO, 
NBODY,  NWING,  XMACH,  SYM,  KACE 

DIMENSION:  AB(100),  ABB(100,  100),  AWB(110,  100), 
ABW(100,  25),  AWW(100,  25),  E(100,  25),  D(110) 

EQUIVALENCE  (ABB,  AWB) 

Input:  NWING  = Number  of  wing  panels. 

NBODY  = Number  of  body  panels. 

NTAPEA  = Logical  number  of  tape  from  which 
the  aerodynamic  influence  co- 
efficients are  read. 


NTAPED  = Logical  number  of  tape  from  which 

[awb]  and  ^bb]'1  are  read* 

NTAPEE  = Logical  number  of  tape  on  which 

the  reduced  aerodynamic  influence 
coefficients  matrix  is  written. 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


NTAPEF 

= Logical  number  of  tape  on  which 

[abb  ] 

written. 

1 • [D]  * and  LE]  are 

AWB 

= Matrix 

[awb1 

ABB 

= Matrix 

[abb  ] 1 

ABW 

= Matrix 

[abw1 

AWW 

= Matrix 

[Aww] 

Output: 

AWW 

= Matrix 

[Ar] 

ABB 

= Matrix 

[abb1 

D 

= Matrix 

[°] 

E 

= Matrix 

[E] 

None 

None 

NWING 

< 110 

NBODY 

< 100 

19564 

= 4G152g 
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SUBJECT: 


FORTRAN  IV  Subroutine  RICH3A 


PURPOSE: 

METHOD: 


USAGE : 


Given  a sparse  array  of  points  on  a space  curve,  to  compute 
a dense  array. 

A given  tolerance , CHD,  regulates  the  number  of  additional 
points  to  be  generated  on  the  space  curve.  Between  adjacent 
points  in  the  dense  array,  the  maximum  distance  between 
arc  and  chord  will  be  approximately  less  than  CHD.  (How- 
ever, if  CHD  < 0 or  if  there  are  fewer  than  four  points  in 
the  sparse  array,  no  interpolation  takes  place  and  the  dense 
array  will  be  identical  to  the  sparse  array.) 

The  given  sparse -array  points  are  projected  into  a plane. 
Additional  points  are  interpolated  in  this  plane  by  subroutine 
ENRYCH  (using  the  tolerance  CHD).  An  inverse  projection 
is  then  performed,  mapping  the  two-dimensional  points  back 
to  the  original  three -space. 

A more  detailed  description  of  the  enriching  process  follows. 
As  a first  step  the  sparse  array  of  points  is  transformed  to 
anX',Y',  Z'  coordinate  system.  The  transformation  is 
determined  by  a given  code,  KD.  Let  (xj,  yj_,  z^)  be 
the  first  point  in  the  given  sparse  array  P,  and  Pn  (xn, 
yn,  zn)  be  the  last  point.  If  KD  = 0,  the  X'  Y'  Z'  origin 
is  at  Pi,  and  the  X*  axis  passes  through  Pn;  the  XT  ZT 
plane  contains  the  point  in  P farthest  from. the  line  P^  Pn. 

If  KD  = 1 or  2,  the  X'  Y'  Z'  origin  is  at  (xj_,  y^,  0),  and 
the  X*  axis  passes  through  the  point  (xn,  yn,  0);  the  Z'  axis 
is  parallel  to  the  Z axis,  hi  the  next  step,  the  X1  Z*  coor- 
dinates of  the  points  are  treated  as  two-dimensional  points 
by  subroutine  ENRYCH  to  produce  a dense  array  of  points. 

To  find  the  corresponding  Y'  coordinate  of  each  point,  a 
two-dimensional  interpolation  is  made  by  subroutine  BITURP: 
the  interpolation  table  contains  the  sparse  array  X'  and  Y' 
coordinates,  with  X'  as  the  independent  variable . For  each 
dense  array  point  the  Y'  coordinate  is  interpolated  from  the 
table.  The  interpolation  is  linear  if  KD  = 1,  or  biquadi'atic 
if  KD  - 0 or  2.  In  the  final  step,  the  dense  array  X1,  Y’,  Z1 
coordinates  are  transformed  to  the  original  X,  Y,  Z system. 

DIMENSION  P(3 , N) , Q(3,  N) , A(3,  MAX/3),  NU(3) 

CALL  RICH3A  (N,  P,  Q,  KD,  MAX,  CHD,  NA,  A,  NU) 
Input:  N = Number  of  points  in  P. 

P = Ari'ay  of  given  points  (sparse  array). 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


KD  = Code  (see  METHOD,  above). 

MAX  = Maximum  number  of  elements  that  may  be 
stored  in  the  A -array. 


CHD  = Chord -height  tolerance  that  determines  the 
spacing  of  interpolated  points  (see  ENRYCH 

NU  = Error  indicator  array:  NU(1)  is  not  used 

on  input.  NU(2)  and  NU(3)  are  used  only 
by  ENRYCH  and  BITURP.  NU(2)  is  an 
output  tape  number  on  which  to  write  a 
message  if  an  error  is  detected;  no  mes- 
sage is  written  if  NU(2)  < 0.  NU(3)  is 

an  error  message  limiter;  if  an  error  is 
detected,  NU(3)  = (NU(3)  - 1).  Then  if 
NU(3)  > 0 and  NU(2)  > 0,  an  error  mes- 
sage is  written. 

Output:  Q = Scratch  array  that  may  occupy  the  same 
storage  space  as  P if  P need  not  be 
preserved. 


NA  = Number  of  points  in  the  A -array. 


A = Array  of  enriched  points  (dense  array) . 

NU  = Error  indicator  array:  NU(1)  = 0 if 

success.  NU(3)  is  discussed  above. 


UVECN 

VCROS 

DMAXL 

ENRYCH 

BITURP 

TROTPT 

SQRT  (Built-in  function) 

TRAV 

NU  = -2,  if  KD  = 0 and  the  endpoints  of  P are  coincident 
NU  = -1  (corresponding  to  error  code  3 from  ENRYCH) 
if  more  than  200  interpolated  points  would  be  required  be- 
tween two  points  in  P:  either  CHD  is  too  small  or  the 

points  in  P (after  projection)  are  ill-conditioned.  RICH3A 
adds  no  interpolated  points  in  this  interval,  and  continues. 
NU  = 1,  4,  5,  or  6 if  MAX  is  too  small.  NU  = 2 (error  2 
from  ENRYCH)  if  four  consecutive  points  in  P (after 


319 


RESTRICTIONS: 


STORAGE: 


transformation  to  the  X',  Y'  system)  are  not  strictly  mono- 
tonic in  either  X'  or  Y*.  NU  — 7 if  KD  = 1 or  2 and  the 
endpoints  of  P have  the  same  X and  Y coordinates.  NU  = 
11,  12,  13,  or  14  (BITURP  errors  1,  2,  3,  or  4)  if  an  error 
was  detected  during  the  inverse  projection  (see  METHOD, 
above);  this  can  happen  only  if  the  given  sparse  array  is  ill- 
conditioned.  NU  = 21  if  an  error  occurs  when  finding  the 
projection  plane. 

After  transformation  to  the  X',  Y',  Z' system  (see  METHOD, 
above) , the  given  sparse  array  points  must  be  monotonic  in 
X';  no  two  X'  coordinates  may  be  the  same.  Since  only  the 

projections  of  the  given  points  on  the  X'-Zr  plane  are  en- 
riched, too  few  points  may  be  generated  if  the  given  points 
do  not  lie  approximately  in  the  plane. 

509i(>  = 775g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  RICHNA 

To  enrich  (interpolate  additional  points)  a set  of  body  merid- 
ian lines  or  wing  percent  lines. 

A given  array  A of  length  MAX  contains  M arrays  of  N 
three-dimensional  points  each.  Each  array  will  be  called 
a percent  line.  Since  array  A is  also  used  for  output,  all 
the  points  are  first  shifted  to  the  end  of  A.  A given  code, 
KOD,  determines  the  type  of  interpolation  (see  subroutine 
RICH3A).  If  KOD  f 0,  all  points  in  each  percent  line  are 
checked:  a comment  is  written  for  each  point  having  X and 
Y coordinates  that  are  nearly  the  same  (within  a given 
tolerance  EPS)  as  those  of  the  previous  point  but  for  which 
the  Z-coordinates  are  different.  Then  all  percent  lines  are 
screened  by  function  NWEED  to  remove  any  points  too  close 
to  the  preceding  point;  If  KOD  = 0,  all  three  coordinates 
must  nearly  match  the  previous  point  before  a point  is  re- 
moved. But  if  KOD  > 0,  only  the  X and  Y coordinates 
must  nearly  match;  thus  any  points  for  which  a comment 
was  written  will  be  removed. 

(NOTE:  KOD  = 0 for  body  meridian  lines;  KOD  = 0,  1, 

or  2 for  wing  percent  lines.)  If  a given  tolerance  CHD  is 
less  than  or  equal  to  0,  no  additional  points  will  be  inter- 
polated. A "header"  or  "table  of  contents"  is  inserted  at 
the  beginning  of  array  A;  this  is  followed  by  the  point  coor- 
dinates. The  format  of  the  completed  array  A is  given  in 
Appendix  D. 


DIMENSION  A (MAX) , P(M),  NU(3) 


CALL  RICHNA  (A,  MAX,  M,  N,  P,  EPS,  CHD,  KOD, 
NA,  NU) 


Input:  A = Array  of  M percent  lines  of  N points  each. 

MAX  = Length  of  array  A. 

M = Number  of  percent  lines. 


N = Number  of  points  in  each  percent  line. 

P = Array  of  labels  that  are  angles  (if  body 

meridian  lines)  or  percent  values  (if  wing- 
percent  lines);  these  are  used  in  the  "header" 
of  the  final  array  (see  Appendix  D) . 

EPS  - Tolerance  of  test  for  coincident  points. 
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CHD  = Chord -arc  tolerance  that  controls  the  num- 
ber of  interpolated  points.  See  subroutine 
RICH3A. 

KOD  = Code  which  determines  type  of  interpola- 
tion (see  KD  in  subroutine  RICH3A). 

NU  = Error  indicator  array:  NU(1)  is  not  used 

on  input.  NU(2)  is  an  output  tape  number 
on  which  to  write  a message  if  an  error  is 
detected  in  some  lower-level  subroutine; 
no  message  is  written  if  NU(2)  < 0.  NU(3) 

is  an  error  message  limiter;  if  an  error  is 
detected,  NU(3)  =(NU(3)  - 1).  Then  if 
NU(3)  > 0 and  NU(2)  > 0,  an  error  mes- 
sage is  written. 

Output:  A = Array  of  M enriched  percent  lines,  with 
"header"  that  contains  a label,  number  of 
points , and  starting  location  in  A for  each 
percent  line.  See  Appendix  D for  format. 

NA  = Total  number  of  points  in  array  A.  The 
total  number  of  elements  used  in  A is 
3 * (M  + NA). 

NU  = Error  indicator  array:  NU(1)  = 0 if  no 

errors  are  detected.  NU(3)  may  have 
been  reduced  by  a lower-level  subroutine 
if  an  error  occurred. 

SUBPROGRAMS 

CALLED:  NWEED 

RICH3A 

ERROR  RETURNS:  NU  = -1  if  NWEED  detected  an  error;  this  could  be  caused 

by  a very  large  value  of  EPS.  For  any  other  nonzero  value 
of  NU,  see  RICH3A. 

RESTRICTIONS:  MAX  > 3 * M * (N  + 1) 

STORAGE:  400  = 620 

10  8 
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SUBJECT: 


FORTRAN  IV  Subroutine  RITE 


PURPOSE:  To  output  the  x,  y,  and  z components  of  velocity  induced 

by  the  various  singularities . 

METHOD:  If  a printout  of  the  velocity  components  is  requested,  the 

x,  y,  and  z components  of  velocity  are  written  on  the  out- 
put tape.  The  components  are  identified  in  the  printout  as 
the  x component,  AXIAL(U);  the  y component,  TRANS- 
VERSE (V);  and  the  z component,  VERTICAL(W).  By  an 
input  code,  the  proper  identification  relating  the  velocity 
components  to  the  singularity  is  also  printed. 

USAGE:  Call  RITE  (NFMT,  NTAPEO,  NP,  NROW,  NCOL, 

THETA,  U,  V,  W) 

DIMENSION  NFMT (7),  U(NP),  W(NP) 

Input:  NFMT  control  code 

NFMT(I)  = 0,  output  of  velocity  components  not 

(I  = 1,  7)  requested. 

NFMT(l)  = 1,  velocity  components  on  body  panels 
resulting  from  body  panel  pressure 
singularities. 

NFMT(2)  = 2,  velocity  components  on  body  panels 
resulting  from  wing  panel  pressure 
singularities. 

NFMT(3)  = 3,  velocity  components  on  body  panels 
resulting  from  wing  sources. 

NFMT(4)  = 4,  velocity  components  on  wing  panels 
resulting  from  wing  panel  pressure 
singularities. 

NFMT(5)  = 5,  velocity  components  on  wing  panels 
resulting  from  wing  sources. 

NFMT(6)  = 6,  velocity  components  on  wing  panels 
resulting  from  body  panel  pressure 
singularities. 

NFMT(7)  = 7,  velocity  components  on  wing  panels 
body  line  sources  and  doublets. 

NTAPEO  = Logical  number  of  output  tape. 

NP  = Number  of  wing  or  body  panels. 
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NROW 


= Number  of  rows  of  panels  on  wing 
or  body. 

NCOL  = Number  of  chordwise  columns  of 

panels  on  wing  or  number  of  longi- 
tudinal columns  of  panels  on  body. 

THETA  = If  body  case,  the  0 angles  around  the 
body  of  the  data  output  points . 

U = x component  of  velocity. 

V = y component  of  velocity. 

W = z component  of  velocity. 


SUBPROGRAMS 

OUTB 

CALLED: 

OUTW 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

40910 
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SUBJECT: 


FORTRAN  IV  Subroutine  RRAT 


(See  Subroutine  QRAT) 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  SAVTAP 

To  write  the  aerodynamic  matrices  for  a given  config- 
uration and  Mach  number  on  a logical  tape  that  can  be 
saved  and  used  for  later  computer  runs. 

The  aerodynamic  matrices  are  read  from  several  logical 
tapes  as  indicated  below  and  written  as  one  file  on  logical 
tape  NTAPEC. 


For  wing-alone  configurations,  the  matrices  are  written 
in  the  following  order: 


Previous 

tape 

1.  NTAPEA 

2.  NTAPEA 

3.  NTAPEA 

4.  NTAPEA 

5.  NTAPEB 

6.  NTAPEB 

7.  NTAPEE 
S,  NTAPEE 


Matrix 

[Aww] 

[ww] 

[ww]'1 


[ww]"1 


Description 

Aerodynamic  influence  coef- 
ficients due  to  wing  sources. 

Drag  minimization. 

Inverse  of  drag  minimization 
matrix  constrained  for  wing 
lift. 

Inverse  of  drag  minimization 
matrix  constrained  for  wing 
lift  and  pitching  moment. 

Velocity  components  due  to 
wing  sources. 


Velocity  components  due  to 
wing  surface  vortices. 


Aerodynamic  influence  coef- 
ficients due  to  wing  surface 
vortices. 


[Awwl Inverse  °f  of  aero- 

J dynamic  influence  coefficients 
due  to  wing  surface  vortices, 
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For  wing-body  configurations,  the  matrices  are  written 
in  the  order: 


Previous 

taPe  Matrix  Description 


1.-5.  (same  as  wing- alone  configurations) 


6.  NT  APED 


7.  NTAPED 


U 


BB 


BB 


W. 


BB 


U 


WB 


WB 


W. 


WB 


Velocity  components  on  the 
body  due  to  body  surface 
vortices. 


Velocity  components  on  the 
wing  due  to  body  surface 
vortices. 


8.  NTAPED 


Velocity  components  on  the 
body  due  to  wing  surface 
vortices. 


9.  NTAPED 


UWW 

V 

ww 


Velocity  components  on  the 
wing  due  to  wing  surface 
vortices. 


W. 


WW 


10.  NTAPEE 


|~Ar  "Reduced"  aerodynamic 

l J matrix. 


11.  NTAPEE 

12.  NTAPEF 

13.  NTAPEF 


Inverse  of  "reduced"  aero- 
dynamic matrix. 


Inverse  of  matrix  of  aero- 
dynamic influence  coefficients. 


D J Product  matrix, 

[d]'[awb]  |*bb]  1 
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Previous 

tape 


Matrix 


Description 


USAGE: 


14.  NT  APE  F [ E J Product  matrix. 

[E]=  [abb}Ew] 

This  subroutine  is  not  used  for  body- alone  configurations. 
CALL  SAVTAP  (ISAVET) 


Input:  ISAVET  - Code  that  indicates  if  matrices  are 

to  be  saved.  If  ISAVET  > 0 
matrices  are  written  as  one  file 
on  logical  tape  NTAPEC  as  indi- 
cated above.  If  ISAVET  4 0,  a 
dummy  file  is  written  on  logical 
tape  NTAPEC. 


NTAPEA> 

NTAPEB 

NT  APED  >=  Logical  tape  numbers  from  which 
I aerodynamic  matrices  are  read. 
NTAPEE i 

ntapef] 


NTAPEC  = Logical  tape  number  on  which  aero- 
dynamic matrices  are  written  and 
saved. 


SUBPROGRAMS 

CALLED:  TTAPE 


FSF 

ERROR  RETURNS:  None 

RESTRICTIONS:  This  subroutine  cannot  be  used  for  body -alone  configura- 

tions . 

STORAGE:  1212,  = 2274Q 

10  o 
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SUBJECT: 


FORTRAN  IV  Subroutine  SCAMP4 


PURPOSE: 


METHOD: 


USAGE: 


Given  a set  of  n points  (xi,  yj)  whose  abscissae  form  a 
strictly  monotone  sequence,  a first  or  second  derivative 
at  xi,  and  a first  or  second  derivative  at  xn,  to  find 
the  smoothest  possible  curve  passing  rigorously  through 
the  given  points,  satisfying  the  specified  boundary  condi- 
tions, and  possessing  continuous  first  and  second  deriva- 
tives. The  criterion  for  smoothness  is  the  minimization 
of  the  integral  of  the  square  of  the  second  derivative, 
from  x^  to  xn,  over  all  functions  having  the  stated 
properties.  Accordingly,  the  curve  found  is  a chain  of 
cubics,  i.e. , a separate  cubic  defined  on  each  interval 
(xi,  xj  + i).  The  coefficients  of  each  such  cubic  are 
explicitly  found  in  the  form: 

y = CG  + Cjx  + C2x2  + C3x3 

The  most  economical  (in  time  and  space)  and  most 
accurate  method  of  finding  such  a chain  of  cubics  is  to 
solve  first  for  the  n slopes  yj  of  the  curve.  This  is 
done  by  the  composite  cubic  subroutine  COMCU,  which 
solves  an  nth  order  linear  system,  the  coefficient 
matrix  of  which  is  tridiagonal.  Having  found  the  slopes 
at  each  of  the  n given  xj,  one  can  determine  the  coef- 
ficients of  each  cubic  separately  by  using  CUBIC2,  which 
finds  the  cubic  through  two  points,  being  given  the  slope 
at  each.  The  coefficients  of  all  the  n - 1 cubics  can  be 
obtained  by  using  the  subject  routine  (SCAMP4)  which 
serves  as  a vehicle  for  calling  COMCU  (once)  and  CUBIC2 
(n-1  times).  SCAMP4  has  an  option  to  compute  the 
required  boundary  conditions  (first  or  second  derivatives 
at  the  end  points)  if  these  are  not  known  by  the  calling 
program;  in  this  case,  the  computation  of  first  deriva- 
tives at  xi  and  xn  is  recommended. 

The  cubic  coefficients  found  by  SCAMP4  are  either  stored 
in  a 4 by  n-1  array  or  are  arranged  in  the  composite 
curve  format,  i.e.  in  a single  linear  array  where  each 
segment  is  specified  by  a block  of  seven  consecutive 
words:  xj,  xj  + l,  3.,  c0,  c^,  c2,  c3.  The  calling  pro- 
gram should  dimension  the  coefficient  array  as  a doubly 
subscripted  variable  in  the  former  case  and  singly  sub- 
scripted in  the  latter  case. 

CALL  SCAMP4  (X,  Y,  N,  NDA,  NDB,  DA,  DB,  C,  S,  M) 
DIMENSION  X(N),  Y(N) , C(4,  N-1)  or  C(7,K) 
whore  K * N-1 


329 


Input:  X 

Y 
N 

NDA 


NDB 

DA 


DB 

M 


Output:  C 
S 
M 


= Array  of  x- abscissae. 

= Array  of  y-ordinates. 

= Number  of  points . 

= The  order  (1  or  2)  of  the  deriva- 
tive to  be  given  at  X(l) . If  deriva- 
tive is  to  be  computed  by  SC AMP4 , 
NDA  ^ 0. 

= The  order  of  the  derivative  to  be 
given  at  X(N).  Similar  to  NDA. 

= The  value  of  the  derivative  at  X(l) . 
If  derivative  is  to  be  computed  by 
SCAMP4,  leave  blank. 

= The  value  of  the  derivative  at 
X(N).  Similar  to  NDA. 

= Code. 

£ 12,  if  the  cubic  chain  coefficients 
are  to  be  stored  in  a doubly  dimen- 
sioned 4 x (N  - 1)  array. 

= 12 , if  the  cubic  chain  coefficients 
are  to  be  stored  in  a singly  dimen- 
sioned array. 

= Array  of  cubic  chain  coefficients. 

= Array  of  first  derivatives. 

= Error  return. 


= 0 — success 
£ 0 — error  detected 


SUBPROGRAMS 

CALLED: 


COMCU 

CUBIC2 

DERIV1 

DERIV2 
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ERROR  RETURNS:  M — -1,  indicates  N^-2.  1 ~ M ^ 7 , indicates  an  error 

return  fepm  COMCU.  M large  indicates  error  return  k 
on  the  jin  call  to  CUBIC2  (M  = 100  • j + k) . 

STORAGE:  28810  = 440 g 
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SUBJECT: 


FORTRAN  IV  Subroutine  SIMUN3 


PURPOSE: 


METHOD: 


Given  a set  of  n points  (xj,  yj),  to  numerically  calculate 
using  Simpson's  (parabolic)  rule  the  value  of  the  integral: 


y dx. 


Simpson's  rule  for  a single  interval  containing  three 
equally  spaced  points  can  be  written: 


A v 

ydx^Y  (yi  + 4y2  + y3) 


If,  in  fact,  there  are  m successive  subintervals  each 
containing  three  points  for  a total  of  2m  + 1 equally 
spaced  points,  this  formula  can  be  rewritten: 

x2m  + 1 

Ax 

y dx  ^ -3-  (yx  + 4y2  + 2y3  . . . 

X1 

+ 2y2m-l+4y2m  + y2m  + l> 

The  set  of  input  points  (xj,  y^)  may  or  may  not  consist  of 
some  odd  number  of  equally  spaced  points  as  required  for 
Simpson's  rule.  Subroutine  SCAMP4  is  first  used  to 
compute  the  coefficients  of  a chain  of  cubics  fit  to  these 
input  points.  A second  set  of  2m  + 1 equally  spaced 
points  (xi,  y|)  is  then  obtained  by  using  the  cubic  chain 
coefficients  provided  by  SCAMP4_and  interpolating  on  the 
set  of  input  points.  If  for  some  x^  : 


x.  £. 
J 


xi  ~ xj  + 1 


then, 

^i  = cl>j  +c2’j  ^i  + c3’j  ^i2+c4’j  Xj3 


where  c^,jf  c2,j  c3,|  and  are  the  coefficients  of 

the  y11  cubic  poiynomlnal.  A numerical  value  for  the 
intergral  in  question  is  then  calculated  by  directly 
applying  Simpson's  rule: 
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USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


x2m  + 1 

f y dx  In 

X1 

+ 2 


+ 4^  yi 

i odd 

^ Vi  * f2m  + 1> 
i even 


CALL  SIMUN3  (X,  Y,  M,  A,  K) 

DIMENSION  X (M),  Y (M) 

Input:  X = Array  of  x-abscissae  of  input 

points. 

Y = Array  of  y-ordinates  of  input 

points. 


M 

Output:  A 
K 


Number  of  input  points. 
Value  of  integral. 

Error  return 
0 — success 
0 — error  detected. 


SCAMP4 

MOD  ) (Built-in  functions) 

FLOAT  f 

Three  types  of  errors  are  detected  and  indicated.  If 
fewer  than  three  points  are  input,  K = 1.  If  SCAMP4 
detects  an  error  in  fitting  a chain  of  cubics  to  the  set  of 
input  points,  K = 2.  If  an  error  occurs  in  calculating 
the  integral,  K = 3.  Otherwise,  K = 0. 

3 - M - 55 

628]0  = 11648 
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SUBJECT: 


FORTRAN  IV  Subroutine  SIZE 


PURPOSE:  To  determine  the  number  and  sizes  of  the  partitions  of 

a matrix,  given  the  size  of  the  matrix  and  a maximum 
partition  size. 

METHOD:  The  subroutine  uses  the  following  sequence  of  FORTRAN 

instructions 

NPMIN  = 2 

NT  = MM 

NPART  = MAXO  (NPMIN,  (NT  - 1)/NMAX  + 1) 
N = NPART 

10  NSIZE(N)  = NT/N 

NT  = NT  - NSIZE(N) 

N = N-  1 

IF(N)  20,  20,  10 
20  RETURN 

USAGE:  CALL  SIZE  (MM,  NMAX,  NPART,  NSIZE) 

DIMENSION  NSIZE  (NPART) 


Input:  MM 

= Size  of  matrix. 

NMAX 

= Maximum  partition  size. 

Output:  NPART 

= Number  of  partitions. 

NSIZE 

= Array  of  partition  sizes. 

SUBPROGRAM 

CALLED: 

MAXO  (Built-in  function) 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

7410  = U2a 
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SUBJECT: 


FORTRAN  IV  Subroutine  SLOPEW 


PURPOSE: 

METHOD: 


To  calculate  camber  and  thickness  ordinates  and  camber 
and  thickness  slopes  for  an  airfoil. 

Program  input  can  consist  of  single  airfoil  (or  multiple 
airfoils)  for  which  both  an  upper  and  lower  surface  are 
defined  (see  subroutine  INPUTW).  If  a single  airfoil  is 
given,  this  airfoil  is  scaled  accordingly  and  used  to  cal- 
culate camber  and  thickness  for  each  column  of  panels  on 
the  wing.  If  multiple  airfoils  are  given,  each  airfoil  is 
reduced  to  a unit  airfoil,  scaled  accordingly  and  used  for 
camber  and  thickness  calculations  on  but  a single  column 
of  wing  panels.  Note  that,  for  the  latter  case,  as  many 
airfoils  as  panel  columns  must  be  given  on  input  cards . 

For  a given  unit  airfoil  and  the  corresponding  panel  column, 
the  program  locates  a local  streamwise  chord  on  the  column, 
computes  the  chord  length,  and  uses  this  value  to  scale  the 
airfoil.  For  example,  a typical  panel  column  is  repre- 
sented below: 


The  program  constructs  a streamwise  plane  through  the 
control  point  of  the  first  panel  on  the  column  and  intersects 
this  plane  with  the  wing  leading  and  trailing  edges.  The 
panel  side  edges  are  streamwise;  thus  this  construction  is 
always  possible  and,  because  the  control  points  for  a given 
column  of  panels  lie  on  the  same  streamwise  chord,  only 
one  such  construction  is  necessary.  This  is  shown  in  the 
following  sketch: 
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A chord  length  to  be  associated  with  this  panel  column  is 
then  calculated, 

c = x t " x/ 

and  this  chord  length  is  used  to  scale  the  airfoil  so  that, 

^"V° 


for  which  xk^,  zkQ  are  the  x-  and  z-coordinates  of  the  un- 
sealed, unit  airfoil,  x^,  zj^  are  the  coordinates  of  the 
scaled  airfoil  and  £ is  the  constant  z -value  for  the  wing. 

Having  scaled  the  airfoil  to  "fit"  the  wing  for  a particular 
column,  the  program  then  calculates  camber  and  thickness 
ordinates  for  each  panel  of  that  column.  To  satisfy  a con- 
dition of  the  program,  the  camber  ordinate  is  computed  at 
the  panel  control  point  and  the  thickness  ordinate  at  the 
panel  centroid.  Because  both  the  upper  and  lower  surfaces 
of  an  airfoil  are  given  as  input  (see  sketch), 
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the  program  must  interpolate  on  each  surface  for  both  the 
camber  and  thickness  ordinate.  As  a result,  four  values 
are  calculated 


and  used  in  camber  and  thickness  calculations.  For  the 
camber  ordinate, 

1 / 

zcam  2 Z°u  + Zcf 

and  for  thickness, 

zthk  = 2 ^ztu  " zt g)- 

Using  the  camber  and  thickness  ordinates  that  have  been 
calculated,  the  program  computes  the  camber  and  thick- 
ness slopes.  As  the  camber  is  evaluated  at  the  panel  con- 
trol point  and  the  thickness  at  the  centroid,  the  program 
constructs  two  distinct  tables: 

« zcam  versus  xcp 
2)  versus  x 

that  are  used  for  these  calculations. 

To  obtain  the  camber  slope  at  the  xcp  for  a given  panel,  the 
program  evaluates  the  camber  curve  (1)  at  xcp  - e and 
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for  which 


and  c is  the  chord  length. 

The  values  <J °f  the  curve  at  these  two  points  are 
used  to  compute  the  camber  slope. 


Similarly,  to  obtain  the  thickness  slope  at  the  x of  a given 
panel,  the  thickness  curve  (2)  is  evaluated  at  x - c and 
x + c,  and  the  values  Tj_  and  7*2  of  the  curve  at  these  two 
points  are  used, 


As  a last  step  the  program  smooths  the  camber  and  thick- 
ness slopes.  The  calculations  of  the  slopes  for  a given 
column  of  panels  result  in  two  tables: 

x)  "cam  versus  xcp 

2)  t*thk  versus  x 

and  each  of  these  tables  is  smoothed  through  use  of  the  sub- 
routine MEAN. 

The  above  calculations  are  used  to  obtain  camber  and  thick- 
ness ordinates  and  camber  and  thickness  slopes  for  panels 
of  a column  of  the  wing  in  all  but  two  cases , 

1)  The  inboard  column  on  the  wing  for  a body -wing  case 
having  a body  contour  in  the  intersection  region; 

2)  The  outboard  wing  column  for  wing  having  a nonstream - 
wise  outboard  wing  edge. 

For  these  two  cases,  the  calculations  are  changed  slightly 
because  the  edges  of  an  arbitrary  panel  are  not  streamwise 
and  the  control  points  of  all  panels  of  the  column  do  not  lie 
on  the  same  streamwise  chord.  A local  streamwise  chord 
must  be  constructed  and  a chord  length  determined  for  each 
panel  in  the  column.  The  unit  airfoil  is  scaled  to  "fit"  the 
wing  at  the  ycp  of  each  panel;  then  the  camber  and  thickness 
are  calculated. 
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USAGE: 


SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


STORAGE: 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description) 

COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  KOPTF 

NUMS 
KSTART 
KEND 
NPER 
NPER1 
NPLANE 
NPLN1 

COMMON  /COM2/  (See  subroutine  WING) 

Input:  NPTS 

X 
Y 
Z 

SLOPE 

XCEN 

XCON 

YCON 

XFOIL 

ZFOIL 

XNUM 

Output:  ZCEN 
ZCON 
THETA 
ALPHA 

CALL  SLOPEW 


ATAN  (Built-in  function) 

BITURP 

MEAN 

POLXN 

CHECK 

Error  messages  indicate  whether  error  occurred  in  use  of 
subroutine  BITURP  to  interpolate  on  airfoil  surfaces  or  on 
camber  and  thickness  curves.  An  error  message  also  indi- 
cates if  the  airfoil  x-ordinates  are  not  defined  as  a (strictly) 
monotonia  increasing  sequence. 

22721q  * 4340g 
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SUBJECT: 


FORTRAN  TV  Subroutine  STRM1 


PURPOSE: 

METHOD: 


USAGE: 


To  integrate  a three-dimensional  streamline  around  a 
supersonic  wing-body  combination. 

LACKEY  obtains  velocities  which  are  interpreted  as 
derivatives  of  the  streamline.  The  DEDIS  package  is 
used  to  perform  an  Adams-Moulton  predictor-corrector 
variable  stepsize  integration.  (See  DEDIS) 

COMMON  /INTGA/  DUM  (3500) 

CALL  STRM1  (X,  Y,  Z,  XMAX,  XMIN,  XDELT, 
DXMAX,  DXMIN,  IND1,  IND2) 


Input:  x 


y 

z 


XMAX 


SMIN 


x-coordinate  of  starting  point  of 
streamline. 

y- coordinate  of  starting  point  of 
streamline. 

z-coordinate  of  starting  point  of 
streamline. 

Maximum  value  which  the  x-coordi- 
nate of  the  streamline  is  allowed 
to  attain. 

Minimum  value  which  the  x- coordi- 
nates of  the  streamlines  is  allowed 
to  attain. 


XDELT 

DXMAX 

DXMIN 

IND1 

IND2 


Initial  stepsize. 

Maximum  stepsize  allowed. 
Minimum  stepsize  allowed. 

1.  Negative  running  streamline. 

2.  Positive  running  streamline. 

1 . Interpolated  output  (see  output) . 

2 . Actual  points  determined  by 
integration. 


Output;  On  user  option,  the  streamlines  are  written  on 
the  output  tape  in  step  increments  of  XDELT  or 
the  actual  points  are  determined  by  the  variable 
stepsize  integration  are  written. 
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I 


SUBPROGRAMS 

CALLED: 

! 


I 

ERROR  RETURNS: 
RESTRICTIONS: 


STORAGE: 


DED 

DES 

DEI 

BJTURP 

LACKEY 

SQRT  (Built-in  function  ) 

None 

If  the  number  of  points  determined  by  the  integration 
routine  exceeds  200  before  reaching  one  of  the  x-coordi- 
nate  extrema  (DXMAX,  or  DXMIN) , the  integration  is 
terminated  and  results  are  output  at  that  point. 

73410  = 13368 
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SUBJECT: 


FORTRAN  IV  Subroutine  TAN 
(See  subroutine  FTAN) 
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SUBJECT: 


FORTRAN  IV  Subroutine  TDUMP 


PURPOSE: 

METHOD: 

USAGE: 

SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


To  read  the  binary  tape  produced  by  the  Geometry  Defini- 
tion section  and  to  write  its  contents  on  an  output  tape. 

A given  logical  array,  which  contains  tape  record  status 
information,  is  checked.  If  there  are  no  valid  records  on 
the  binary  tape,  control  is  returned  to  the  calling  program. 
Otherwise,  each  of  the  18  records  is  processed.  The  tape 
format  is  given  in  Appendix  D. 

LOGICAL  LGDEF(3,  6) 

CALL  TDUMP  (LO,  LTAPE , LGDEF) 

Input:  LO  = Output  tape  number. 

LTAPE  = Binary  tape  number. 

LGDEF  = See  subroutine  GEOMD. 


None 

None 

Records  must  not  contain  more  than  2000  words. 
217510  = 4177g 
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SUBJECT: 


FORTRAN  IV  Subroutine  TFLAT 


PURPOSE: 


METHOD: 


To  transform  body  and  wing  to  a new  coordinate  system, 
to  flatten  the  wing,  and  to  find  the  intersection  of  each  wing 
percent  line  with  the  body  surface. 

Three  types  of  cases  may  be  handled:  body  alone,  wing 
alone,  or  wing-body  combination.  If  a body  surface  is  in- 
volved, it  is  assumed  to  be  symmetrical  about  the  X-Z 
plane;  only  half  of  it  is  given.  Then  a new  x,  y,  z 
coordinate  system  is  set  up  with  origin  at  the  centroid 
of  forward  end  of  the  body  and  the  x-axis  passing  through 
the  aft-end  centroid;  the  z-axis  lies  in  the  X-Z  plane. 

In  the  new  coordinate  system,  the  body  ends  (miles  s of 
zero  radius)  are  not  necessarily  parallel  to  the  y-z 
plane;  this  is  corrected  by  a linear  adjustment  of  all  x- 
coordinates  of  the  body  points.  Also,  the  new  body  length 
(distance  between  body  end  centroids)  may  be  different  than 
the  original  length.  The  original  set  of  body  defining  stations 
is  converted  to  the  new  coordinate  system  by  a transform- 
ation of  the  form  x » a X + /3 . The  body  radius  and  centroid 
are  computed  at  each  of  these  stations.  In  a body  alone 
case,  the  radius  and  centroid  are  then  found  by  interpola- 
tion at  a given  number  of  equally  spaced  stations ; other- 
wise, this  calculation  is  deferred. 

In  a wing-body  combination,  the  wing  is  also  transformed 
to  the  x,y,z  coordinate  system.  Then  the  intersections  of 
the  wing  leading  and  trailing  edges  with  the  body  surface 
are  computed;  let  z^  be  the  average  of  the  z-coordinates 
of  these  two  points.  The  wing  is  effectively  flattened  by 
changing  each  z-coordinate  of  the  wing  to  z^.  The  body 
is  then  intersected  by  each  wing  percent  chord  line  of  the 
flattened  wing. 

The  body  radius  and  centroid  calculation  can  now  be 
resumed.  A set  of  equally  spaced  stations  is  chosen 
between  the  forward  end  of  the  body  and  the  station  at 
which  the  wing  leading  edge  intersects  the  body;  a similar 
set  is  selected  from  there  on  aft.  The  calculation  of  the 
interval  between  stations  in  each  region  is  subject  to  the 
constraints  that  the  total  number  of  stations  must  agree 
with  a given  number  and  that  the  two  intervals  must  be 
approximately  the  same  in  each  region. 

In  a wing  alone  case,  the  transformation  is  omitted. 

However,  the  wing  is  flattened:  z^  is  taken 
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as  the  average  of  the  z-coordinates  of  the  first  point  in  the 
leading-  and  trailing-edge  percent  lines . 

The  body  and  wing  definitions  are  on  a binary  tape,  LA, 
which  has  a format  as  described  in  Appendix  D.  The  body 
is  given  by  meridian  lines,  the  wing  by  percent  chord  lines; 
meridian  and  percent  lines  are  described  by  sets  of  three- 
dimensional  points  (see  subroutine  WBXUL).  One  data  card 
is  required;  it  is  read  with  FORMAT  (5F10.0)  as  follows: 

Columns  Symbol  Explanation 

I- 10  XNRX  Number  of  body  stations  at  which 

body  radius  and  centroid  are 
desired.  If  this  number  is  less 
than  3 or  greater  than  50,  it  is 
set  equal  to  50. 

II- 20  CHD  A tolerance  passed  on  to  sub- 

routine TFLAT1,  and  then  to 
BODCR,  for  eventual  use  by 
subroutines  ENRYCH  and  OPTIM3. 
CHD  is  used  only  to  find  body 
centroids,  as  follows:  A section, 
normal  to  the  x-axis,  is  taken 
through  the  body.  The  section 
has  one  point  for  each  meridian 
line.  If  CHD  £ 0,  the  centroid 
is  found  assuming  the  section 
to  be  polygonal.  If  CHD  > 0 
and  there  are  at  least  four 
meridian  lines,  additional  sec- 
tion points  are  generated  by 
ENRYCH  on  a smooth  curve 
through  the  vertices  of  the  polygon: 
a sufficient  number  of  points  will 
be  generated  so  that  the  differ- 
ence between  the  chord  of  the 
resultant  polygon  and  the  arc  of 
the  smooth  curve  is  (approxi- 
mately) less  than  CHD.  A posi- 
tive value  of  CHD  should  not  be 
used  unless  there  are  at  least 
eight  meridian  lines  on  a non- 
symmetrical  (about  a horizontal 
plane)  body. 
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USAGE: 


Columns 

21-30 


31-40 


41-50 


Symbol  Explanation 

BCODE  (1)  An  interpolation  code  used  by 

BITURP  to  find  body  radius  and 
zc,  (z-coordinate  of  the  body 
centroid)  at  values  of  x between 
defining  stations . BCODE  (1)  = 

1 for  linear  interpolations,  = 2 
for  biquadratic  interpolation. 

BCODE  (2)  An  interpolation  code  used  by 

BITURP  to  find  the  intersections 
of  wing  percent  lines  with  the 
body  surface  (see  subroutine 
WBXX).  This  process  involves 
finding  body  sections  at  various 
values  of  x.  If  BCODE  (2)  = 1, 
linear  interpolation  is  used  to 
find  y as  a function  of  z;  this  is 
equivalent  to  saying  that  the  body 
is  polygonal  in  cross  section. 

If  BCODE  (2)  = 2 (and  there  are 
at  least  three  meridian  lines), 
biquadratic  interpolation  is  used; 
this  is  equivalent  to  specifying 
a body  of  curved  cross  section 
(but  see  RESTRICTIONS,  under 
BITURP). 


EPRC  A tolerance  applied  to  body  radius 

and  zc  (z-coordinate  of  the  body 
any  value  of  x)  is  less  than 
EPRC,  the  corresponding  radius 
or  zc  is  set  to  zero.  EPRC  is 
introduced  to  help  offset  round- 
off errors. 


Two  binary  tapes  are  written  by  TFLAT;  their  formats  are 
described  in  Appendix  D. 


C OMMON  /LGE  OMD/LGDE  F (3 , 6) 

LOGICAL  LGDEF 
DIMENSION  DAT  (2) 

CALL  TFLAT  (DAT,  LI,  LO,  LA,  LB,  LD,  NBODY,  IOK) 
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SUBPROGRAMS 

CALLED: 


Input:  DAT 

LI 
LO 
LA 

LB 


LD 


LGDEF 


Output:  NBODY 


IOK 


= Date  (alphameric). 

= Input  tape  number. 

= Output  tape  number. 

= Binary  tape  number;  this  tape  is  read 
by  TFLAT  (see  Appendix  D). 

= Binary  tape  number;  three  records 
are  to  be  written  on  this  tape,  unless 
a wing-only  case  is  processed  (see 
Appendix  D»  section  3). 

= Binary  tape  number;  six  records  are 
to  be  written  on  this  tape  (see  Appen- 
dix D,  section  2) . 

= Logical  array,  in  COMMON,  which 
indicates  body  and  wing  status. 

LGDEF (1,  3)  = .TRUE,  if  a body 
definition  was  requested;  LGDEF  (3,  3) 
= . TRUE,  if  the  body  definition  was 
successfully  written  on  tape  LA. 
LGDEF (1,  1)  = .TRUE,  if  a wing 
definition  was  requested;  LGDEF (3,  1) 
= . TRUE . if  the  wing  definition  was 
successfully  written  on  tape  LA.  The 
other  elements  of  LGDEF  are  not  used 
by  TFLAT. 

= Code  to  indicate  a successful  body- 
alone  case;  then  NBODY  = -1.  Other- 
wise, NBODY  = 0. 

= Error  indicator,  which  is  zero  if 
success. 


WBXX 

TRAPCT 

BITURP 

TFLAT1 

TFLATM 

TFLATW 

TFLATX 

TRAV 

FSR 
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ERROR  RETURNS: 


If  an  error  is  detected,  a message  is  written  on  the  output 
tape.  Then  data  cards  on  the  input  tape  are  skipped  over 
until  the  next  case,  or  end  of  data,  is  found.  A new  case 
is  signaled  by  the  word  DEFINE  or  DEFINE  in  columns 
1-6  of  a data  card;  end  of  data  is  signaled  by  the  word  END 
OF.  The  input  tape  is  then  backspaced  one  record. 

The  argument  IOK  is  set  to  one  of  the  following  values  if 
an  error  is  found: 

IOK  Explanation 

2 A body  or  wing  definition  failed  in  a previous  link. 

4 Error  reading  body  stations  from  tape  LA.  Either 

the  number  of  stations  is  less  than  2 or  greater 
than  51,  or  something  is  wrong  with  the  tape. 

6 Error  reading  body  meridian  lines  from  tape  LA. 

Something  is  wrong  with  the  tape  or  record  4 has 
more  than  4368  words. 

8 Error  from  subroutine  TFLAT1. 

10  Error  reading  wing  percent  lines  from  tape  LA. 
Record  7 is  not  correct. 

12  Record  7 on  tape  LA  indicates  that  record  8 has 

more  than 4368  words. 

14  Error  from  subroutine  WBXX  in  finding  wing  per- 

cent line  intersections  with  the  body  (before  trans- 
formation) . 

16  Either  the  leading  or  trailing  edge  of  the  wing  does 

not  intersect  the  body. 

24  Error  from  subroutine  WBXX  in  finding  the  inter- 

sections of  the  flattened  wing  with  the  transformed 
body. 

26  Error  from  subroutine  TFLATX.  One  or  more  of 

the  flattened  wing  percent  lines  did  not  intersect 
the  transformed  body. 

32  Error  from  subroutine  BITURP  in  interpolating 

points  on  the  radius  versus  station  or  z-centroid 
versus  station  curve. 

If  IOK  = 2,  the  message  "ERROR  IN  PREVIOUS  LINK"  is 
written.  If  IOK  > 2,  the  message: 
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RESTRICTIONS: 


STORAGE: 


"TFLAT  ERROR  i,  CODE  j 

ffiEC  = h h *3  V 

is  written,  where  i = IOK,  j = error  code  from  a subroutine 
(if  IOK  = 8,  14,  24,  26,  or  32),  and  i^,  i2>  ig,  i 4 are  the 
first  four  elements  of  the  last  odd-numbered  record  read 
from  tape  LA.  If  IOK  = 14  or  16,  the  transformed  wing 
percent  lines  are  written  by  subroutine  TFLATW  to  aid 
in  diagnosing  the  error. 

Only  a single  wing  surface  can  be  processed.  If  tape  LA 
is  written  by  the  geometry  definition  program,  a lower- 
wing  case  cannot  be  handled  since  TFLAT  only  examines 
the  upper-wing  portion  of  tape  LA.  The  number  of  words 
in  records  4 and  8 cannot  exceed  4368. 

11957, n = 27265q 
1U  o 
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SUBJECT: 


FORTRAN  IV  Subroutine  TFLAT1 


PURPOSE:  To  transform  body  meridian  lines  to  a new  coordinate 

system,  and  to  find  the  centroid  and  equivalent  body  radius 
at  a set  of  body  stations . 

METHOD:  This  subroutine  is  used  by  subroutine  TFLAT.  The  body 

centroid  at  each  end  of  the  body  is  found  by  subroutine 
BODCR.  Then  a new  coordinate  system  is  set  up  such 
that  the  origin  is  at  the  forward  end  centroid  and  the  new 
x-axis  passes  through  the  aft-end  centroid.  After  trans- 
forming the  given  body  to  the  new  coordinate  system,  the 
body  radius  and  z-coordinate  of  the  centroid  is  found  at 
each  given  body  station. 

USAGE:  DIMENSION  STA(51),  B(2448),  6(100,  2),  E(2000), 

RT(3,  4),  ALFBET(2),  RZ(51,  2)  NU(3) 

CALL  TFLAT1  (CHD,  NSTA,  STA,  NBPCT,  B,  S,  E,  RT, 
ALFBET,  RZ,  EPRC,  NU) 

Input:  CHD  = A chord-arc  tolerance,  read  from  data 

card  by  subroutine  TFLAT. 

NSTA  = Number  of  body  stations . 

STA  = Array  of  original  body  stations  (see 
Output,  below). 

NBPCT  = Number  of  body  meridian  lines. 

B = Array  of  points  on  original  body 

meridian  lines  (see  Output,  below). 
This  array  (with  a header)  has  a for- 
mat as  described  in  Appendix  D, 

EPRC  = A tolerance,  read  from  data  card  by 
subroutine  TFLAT. 

NU  = Error  indicator  array.  NU(1)  is  not 

used,  on  input.  NU(2)  is  an  output 
tape  number  on  which  to  write  a mes- 
sage if  an  error  is  detected;  no  mes- 
sage is  written  if  NU(2)  < 0.  NU(3) 
is  an  error  message  limiter;  if  an 
error  is  detected, 

Then  if  NU(3)  > 0 and  NU(2)  > 0,  an 
error  message  is  written. 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


RESTRICTIONS: 


STORAGE: 


Output:  STA 
B 

S 

E 

RT 


- Array  of  transformed  body  stations. 

= Array  of  points  on  transformed  body 
meridian  lines  (with  header). 

= Scratch  array. 

= Scratch  array. 

= Transformation  matrix  (see  TROTPT). 


ALFBET  = Transformation  constants  to  convert 
original  body  stations  to  new  stations 
(see  TFLAT). 

RZ  = Array  of  body  radii  and  z-centroid 

corresponding  to  each  body  station. 

NU  = Error  indicator  array  (see  Input) 

NU(1)  = 0 for  success. 


UVECN 

BSCALE 

BODCR 

VCROS 

TRAPCT 

TRAV 


If  an  error  is  detected,  the  message  "TFLAT  ERROR  i, 
CODE  J,  . is  written. 

i_  j_  Explanation 

1 k Error  k from  BODCR  at  forward  body  end. 

2 k Error  k from  BODCR  at  aft  body  end. 

3 0 The  original  body  length  is  zero. 

4 k Error  k from  BSCALE. 

5 0 The  transformed  body  length  is  zero. 

6 k Error  k from  BODCR  at  some  transformed  body 

station  (an  additional  comment  will  identify  the 
station). 

It  is  assumed  that  the  given  body  meridian  lines  describe 
only  half  of  a body  that  is  symmetrical  about  a plane 
parallel  to  the  xz  plane, 

38lio  * 575S 
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SUBJECT: 


FORTRAN  IV  Subroutine  TFLATM 


PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


To  write  body  meridian  line  points  on  an  output  tape. 

This  is  primarily  an  output  routine  for  TFLAT.  The  meri- 
dian lines  are  given  in  a single  array  with  a format  such  as 
that  described  in  Appendix  D.  The  polar  coordinates  of 
each  point  are  computed  in  a plane  normal  to  the  x-axis, 
with  polar  origin  at  the  body  axis. 

DIMENSION  B(l),  AXIS (2),  TITLE  (12),  DAYT(2) , STA(l) 
CALL  TFLATM  (B,  NB,  AXIS,  TITLE,  DAYT,  LO,  STA) 


Input: 

B 

= Array  of  meridian  lines,  with  header. 

NB 

= Number  of  meridian  lines. 

AXIS 

= y , z coordinates  of  main  body  axis . 

TITLE 

= Title  (alphameric). 

DAYT 

= Date  (alphameric). 

LO 

= Output  tape  number. 

STA 

= Not  used. 

Output: 

= Print -out  on  tape  LO 

ATN1 

SQRT  (Built-in  function) 
TRAV 

None 

None 

346^q  532 g 
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SUBJECT: 


FORTRAN  IV  Subroutine  TFLATW 


PURPOSE:  To  write  wing  percent  lines  on  an  output  tape. 

METHOD:  This  is  an  output  subroutine  used  by  subroutine  TFLAT. 

The  percent  lines  are  given  in  a single  array  with  a format 
as  described  in  Appendix  D. 


USAGE:  DIMENSION  B(l),  TITLE (12),  DAYT(2) 

CALL  TFLATW  (B,  NB,  TITLE,  DAYT,  LO) 


Input: 

B 

NB 

TITLE 

DAYT 

LO 

SUBPROGRAM 

CALLED: 

TRAV 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

312io  = 

4708 

= Array  of  percent  lines,  with  header. 
= Number  of  percent  lines. 

= Title  (alphameric). 

= Date  (alphameric). 

= Output  tape  number. 
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SUBJECT: 


FORTRAN  IV  Subroutine  TFLATX 


PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


To  write  wing-body  intersection  points  on  an  output  tape. 

This  is  an  output  subroutine  for  subroutine  TFLAT  (see 
subroutine  TFLAT).  The  polar  coordinates  of  each  point 
are  computed  and  written  on  the  output  tape  along  with  the 
x,  y,  z coordinates . 


DIMENSION  DAT (2),  W(l),  WB(3,NW) 

CALL  TFLATX  (LO,  DAT,  NW,  W,  WB,  NU) 
= Output  tape  number. 


= Number  of  wing  percent  lines  (also 
number  of  wing-body  intersection  points). 

= Array  of  wing  percent  lines,  with  header 
(see  Appendix  D) . 

= Array  of  points  (xt,  yit  z^  that  are  the 
intersections  of  wing  percent  lines  with 
body  surface. 

= Error  indicator,  which  is  zero  for  success. 


Input: 

LO 

DAT 

NW 

W 

WB 

Output: 

NU 

ATN1 

SQRT 

TRAY 

(Built-: 

NU  = 1 if  any  intersection  point  is  not  valid  (indicated  by 
coordinates  all  1030). 

None 

240^0  = 360g 
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SUBJECT: 


FORTRAN  IV  Subroutine  THETAB 


PURPOSE:  To  calculate  body  panel  theta- inclination  angles. 

METHOD:  The  program  calculates  the  panel  theta-inclination  angle 

by  use  of  standard  geometric  formulae.  The  inclination 
angle  6 is  the  angle  of  the  panel  in  the  x,  y,  z coordinate 
system  of  the  body  as  viewed  down  the  x-axis.  A program 
check  determines  if  the  panel  is  "horizontal"  by  comparing 
the  z-coordinates  of  the  two  trailing-edge  panel  corner 
points.  If  the  panel  is  horizontal,  theta  is  set  equal  to 
zero.  For  a nonhorizontal  panel  defined  as  follows. 


USAGE: 


theta  is  calculated  from  the  formula, 


n lz4  " z3| 

0 = , r cos 

(z4  - z3) 


for  which, 


A = 


B = - 


A1 

x3 

x4 


X4 


yi 

ys 

y4 

zi 

z3 

z4 


(A2  + B2)  1/2 . 


1 

1 

1 

1 

1 

1 


COMMON  (See  subroutine  OPCAMI  for  unlabeled  COMMON 
description). 
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COMMON  /COMl/  (See  subroutine  PANEL) 

Input:  NPER1 

NPLN1 

COMMON  /COM2/  (See  subroutine  BODY) 

Input:  XCOR 

YCOR 
ZCOR 

Output:  THETA 
CALL  THETAB 


SUBPROGRAMS 

ACOS 

CALLED: 

SQRT 

(Built-in  function) 

ERROR  RETURNS: 

None 

STORAGE: 

**10  “ 

3648 
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SUBJECT: 


FORTRAN  IV  Subroutine  TRAPCT 


PURPOSE: 

To  perform  a coordinate  transformation  on  a set  of  body 
meridian  lines  or  wing  percent  lines. 

METHOD: 

Subroutine  TROTPT  is  applied  to  transform  each  point, 
using  a given  transformation  matrix. 

USAGE: 

DIMENSION  B(l),  RT(3,  4) 

CALL  TRAPCT  (B,  N,  RT) 

Input:  B = Meridian  or  percent  line  array  (see  sub 

routines  TFLAT  and  TFLAT1). 

N = Number  of  meridian  or  percent  lines. 

RT  = Transformation  matrix  (see  subroutine 
TROTPT). 

Output:  B = Transformed  array. 

SUBPROGRAM 

CALLED: 

TROTPT 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

8610  - 1268 
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SUBJECT: 


FORTRAN  Subroutine  TRAV 


PURPOSE:  To  move  a block  of  N cells  starting  at  location  B to  another 

region  starting  at  location  A. 

METHOD:  DO  100  I - 1,  N 

100  A([)  ■ B(I) 

USAGE  CALL  TRAV  (A,  B,  N) 

DIMENSION  A(N),  B(N) 

SUBPROGRAM 
CALLED:  None 

ERROR  RETURNS:  None 

RESTRICTIONS:  N > 0 

STORAGE:  3510  = 43  g 
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SUBJECT: 


FORTRAN  IV  Subroutine  TROTPT 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 


Given  the  coordinates  of  a point  (in  3 -space)  in  one  of  two 
rectangular  Cartesian  coordinate  systems  and  the  rotation 
and  translation  matrices  relating  the  systems,  to  compute 
the  coordinates  of  the  point  in  the  other  system . 

Let  an  arbitrary  point  have  the  coordinates  P = (X]_,  Y^,  Zi) 
in  an  Xi  Yi  Zi  coordinate  system,  and  the  coordinates 
Q =(X2,  Y2,  Z2)  in  an  X2  Y2  Z2  coordinate  system.  Let  R 
be  a 3-by-3  rotation  matrix  constructed  as  follows:  the 
first  column  is  a unit  vector,  in  the  X^  Y^  Z^  system, 
along  the  +X2  axis;  similarly,  the  second  column  is  a unit 
vector  along  the  +Y2  axis , and  the  third  column  is  a unit 
vector  along  the  +Z2  axis.  Let  T be  a l-by-3  translation 
matrix  that  contains  the  X^  Y^  Z^  coordinates  of  the  origin 
of  the  X2  Y2  Z2  system.  Then,  if  P and  Q are  considered 
to  be  l-by-3  matrices, 

Q = (P  - T)R 

P = QR-1+  T 


DIMENSION  R(3  3),  T(3),  P(3),  Q(3) 
CALL  TROTPT  (R,  T,  K,  P,  Q) 

Input:  R = Rotation  matrix. 

T = Translation  matrix. 

K 


A code  that  is  1 if  Q is  input  and  P is  output, 
or  2 if  P is  input  and  Q is  output. 


P 

or  Q 

Output : Q 
or  P 


Point  coordinates. 
Point  coordinates. 


None 

None 

The  rotation  matrix  must  be  orthogonal.  The  same  array 
may  be  used  for  both  P and  Q;  e.g.  , CALL  TROTPT(R,  T, 

1,  Q,  Q). 


STORAGE; 
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SUBJECT:  FORTRAN  IV  Subroutine  TTAPE 

PURPOSE:  To  copy  matrices  from  tape  to  tape. 

METHOD:  A single  matrix  (or  multiple  matrices)  is  read  from  one 

tape  and  written  on  a second  tape  under  binary  format. 

USAGE:  CALL  TTAPE  (KIND,  IN,  JN,  NTIN,  NTOUT,  A,  B,  C) 

DIMENSION  A (IN),  B(IN),  C(IN) 

Input:  KIND  - Code  for  number  of  matrices  to  be 

copied.  If  KIND  = 0,  one  matrix 
(A)  to  be  copied.  If  KIND  4 0, 
three  matrices  (A,  B,  and  C) 
to  be  copied. 

IN  = Number  of  rows. 

JN  = Number  of  columns. 

NTIN  = Tape  from  which  matrices  are  read. 

NTOUT  = Tape  on  which  matrices  are 

written. 

A j 

B j = Dummy  arrays. 

C ) 

SUBPROGRAM 

CALLED:  None 

ERROR  RETURNS:  None 


RESTRICTIONS:  None 

STORAGE:  1591Q  = 237g 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  TVEL 

To  compute  the  velocity  components  resulting  from  a 
specified  wing  thickness  distribution  from  the  velocity 
components  resulting  from  a wing  thickness  distribution 
of  unit  incidence. 


The  velocity  components  in  the  x,  y,  and  z directions  on 
panel  i resulting  from  a specified  wing  thickness  distri- 
bution of  incidence  a T.  are  found  by: 


Uj  = 


NWING 

E 

j = i 


Uij  ' a T, 
J 1 3 


Vi  = 


NWING 

E 

3 = 1 


Vij 


a 


Wj  = 


NWING 

E 

j = i 


W-  • 
1J 


T, 


where  U.,  V.  and  W.  = The  1 velocity  components  resulting 
1 1 1 from  a wing  thickness  distribution 

of  unit  incidence. 

NWING  = The  total  number  of  wing  panels. 

The  normal  component  of  velocity  on  a body  panel  i 
resulting  from  wing  thickness  is  given  by 


nBi 


NWING 

E A 

3 = 1 


BWS 


OiT 


U 


where  A 


BWS  = The  normal  velocity  on  the  body  result- 
ing from  wing  thickness  distribution  of 
unit  incidence. 


CALL  TVEL  (A,  B,  C,  D,  ALPHAT,  UBWT,  VBWT, 
WBWT,  UWWT,  VWWT,  WWWT,  AN,  CHORD,  THICK, 
NROW) 
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I 


COMMON  DATE(2) , NTAPEA,  NTAPEB,  NTAPEC, 
NT  APED,  NTAPEE,  NTAPEF,  NTAPEI, 
NTAPEO,  NBODY,  NWING,  XMACH,  SYM, 
KACE 


DIMENSION  A(210),  B(210),  C(210),  D(210), 

ALPHAT  (110),  UBWT  (100),  VBWT  (100),  WBWT  (100), 
UWWT  (110),  VWWT  (110),  WWWT  (110),  AN  (100), 
CHORD  (210),  NROW  (2) 


Input: 


I 


A 

B 

C 

D 


Dummy  arrays 


ALPHAT 

CHORD 

NROW 


Array  of  wing  thickness  slopes. 
Array  of  panel  chord  lengths. 

Array  of  number  of  rows  of  panels. 


For  wing- alone  configurations, 
NROW  (1)  = number  of  panel  rows 
on  wing  and  NROW  (2)  is  dummy 
argument.  For  wing- body  config- 
urations , NROW  (1)  = number  of 
panel  rows  on  body  and  NROW  (2) 

= number  of  panel  rows  on  wing. 

THICK  = Code.  If  THICK  = 0,  wing  thickness 
effects  to  be  ignored.  If  THICK  = 

1 , wing  thickness  effects  to  be 
included. 


Output:  UBWT 
VBWT 
WBWT 


Arrays  of  velocity  components  in  x-, 
y-  and  z- directions  on  the  body  due 
to  a given  wing  thickness  distri- 
bution. 


UWWT 

VWWT 

WWWT 


Arrays  of  velocity  components  in 
x- , y-  and  z- directions  on  the 
wing  due  to  a given  wing  thickness 
distribution. 
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AN 


Array  of  normal  velocity  components 
on  the  body  due  to  a given  wing 
thickness  distribution. 


SUBPROGRAM 
CALLED:  FSF 

ERROR  RETURNS:  None 

RESTRICTIONS:  NBODY  < 100 

NWING  < 110 

STORAGE:  58010  = 1104g 
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SUBJECT: 


FORTRAN  IV  Subroutine  UNLOAD 


PURPOSE: 

METHOD: 

USAGE: 

SUBPROGRAMS 

CALLED: 

RESTRICTIONS: 

ERROR  RETURNS: 

STORAGE: 


To  rewind  and  unload  a logical  tape  unit.  The  unload 
operation  prevents  any  further  reading  or  writing  on 
the  specified  unit  until  the  unit  is  readied  by  an  operator. 

The  program  delays  until  all  1-0  operations  are  finished, 
executes  a rewind  and  unload  command,  then  delays 
until  the  channel  is  again  out  of  operation. 

CALL  UNLOAD  (NT) 

Input:  NT  = logical  tape  number 

None 

None 

None 

4310  = 538 
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SUBJECT: 


FORTRAN  IV  Subroutine  USE  TAP 


PURPOSE: 

! 

METHOD: 


To  read  the  aerodynamic  matrices  for  a given  configura- 
tion and  Mach  number  from  a previously  saved  tape  and 
to  rewrite  them  on  other  logical  tapes  in  the  formats 
required  for  a computer  run. 


The  previously  saved  tape  is  mounted  on  logical  tape 
NTAPEC  and  the  aerodynamic  matrices  are  read  and 
rewritten  on  other  logical  tapes  as  indicated  below. 


For  wing  alone  configurations,  the  matrices  are  written 
in  the  order: 


New  Tape 
1.  NT  A PEA 


2.  NTAPEA 

3.  NTAPEA 


4.  NTAPEA 


5.  NTAPEB 


6.  NTAPEB 


7.  NTAPEE 


Matrix 

[Aww] 

[ww] 

[wwj-1 


Description 


Aerodynamic 
influence  coefficients 
due  to  wing  sources. 

Drag  minimization. 

Inverse  of  drag 
minimization 
matrix  constrained 
for  wing  lift. 

Inverse  of  drag 
minimization 
matrix  constrained 
for  wing  lift  and 
pitching  moment. 

Velocity  components 
due  to  wing  sources. 


Velocity  components 
due  to  wing  surface 
vortices . 


Aerodynamic 
influence  coefficients 
due  to  wing  surface 
vortices. 
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8.  NTAPEE 


Aw  | Inverse  of  matrix 

-*  of  aerodynamic 

influence  coefficients 
due  to  wing  surface 
vortices. 

For  wing-body  configurations,  the  matrices  are  written 
in  the  following  order: 


New  Tape  Matrix 


Description 


1.  through  5. 
6.  NT  APED 


7.  NTAPED 


8.  NTAPED 


9.  NTAPED 


10.  NTAPEE 

11.  NTAPEE 


12.  NTAPEF 


(same  as  wing-alone  configurations) 


Velocity  components 
on  the  body  due  to 
body  surface  vortices. 


Velocity  components 
on  the  wing  due  to 
body  surface  vortices. 


Velocity  components 
on  the  body  due  to 
wing  surface  vortices. 


Velocity  components 
on  the  wing  due  to 
wing  surface  vortices. 


"Reduced"  aero- 
dynamic matrix. 

Inverse  of 
"reduced"  aero- 
dynamic matrix. 


-1 
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Inverse  of  matrix 
of  aerodynamic 
influence  coefficients. 


Matrix 


Description 


USAGE: 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


Product  matrix. 


[D]  -[awb]  • [abb] 

Product  matrix. 


to  ' [abb]-[abw] 

This  subroutine  is  not  used  for  body-alone 
configurations. 

CALL  USETAP 

Input:  NTAPEA  \ 

NTAPEB  I 
NTAPED  [ = 

NTAPEE  \ 

NTAPEF  ) 

NTAPEC 


Logical  tape  numbers  on  which 
aerodynamic  matrices  are 
rewritten. 

Logical  tape  number  of  save  tape 
and  from  which  aerodynamic 
matrices  are  read. 


New  Tape 

13.  NTAPEF  [D] 

14.  NTAPEF  [E] 


TTAPE 

FSF 

None 

This  subroutine  is  not  used  for  body-alone  configurations. 
13091()  = 2435  g 
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SUBJECT: 


FORTRAN  Function  UVECN 


PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


Given  two  points  A and  B in  N-space,  to  find  components 
of  vector  (or  unit  vector)  directed  from  A to  B and  distance 
between  A and  B . 

— • 2 2 2 

Vector  V = B - A and  sum  S = + V2  + ...  + Vn  are 

formed.  If  S > 0,  then  distance  D = V"S;  if  a^  given  code 
indicates  that  a unit  vector  is  required,  then  V - V/D. 
Function  value  UVECN  is  set  to  D before  return.  If  S = 0, 
then  V = 0 and  D = 0. 

D = UVECN  (A,  B,  V,  K,  N) 

DIMENSION  A(N),  B(N),  V(N) 

Input:  A,  B = Point  coordinates 

K = If  K = 0,  then  a unit  vector 

V = (B  - A)/|  (5  - A)  | is  desired; 

XT  IfK  * 0,  then  V = B - A. 

N = 

Dimension  of  the  space  in  which  A and  B 
are  defined. 

Output:  V = Vector  V 

O = Distance  from  A to  B 


SQRT  (Built-in  function) 

None 

N > 0 

80, A = 120 
10  8 
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SUBJECT:  FORTRAN  IV  Subroutine  VCROS 

PURPOSE:  To  find  cross-product  of  two  vectors. 


and  B 

A x B,  is  vector 

(&2  b3  " a3  b2\ 
a3bl  - al  b3  ) 
al  b2  - a2  bl/ 

USAGE:  DIMENSION  A(3),  B(3),  V(3) 

CALL  VCROS  (A,  B,  V,  D,  K) 

Input:  A = A 

B = B _ 

K = 0 if  V is  not  to  be  normalized 
1 0 if  V is  to  be  normalized 

Output:  V = A x B if  K was  0 

= (A  x B)/D  if  K was  not  0 and  D > 0. 
D = Magnitude  of  V (before  normalization) 
K = 0 if  success 

= 1 if  K ^ 0 on  input  and  D = 0. 

SUBPROGRAM 

CALLED:  VDOTP 

SQRT  (Built-in  function) 

RESTRICTIONS:  Note  that  K is  both  an  input  and  an  output. 

STORAGE:  106^  = 152g 
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SUBJECT: 

FORTRAN  Function  VDOTN 

PURPOSE: 

To  find  dot -product  of  two  vectors  in  N-space. 

METHOD: 

Standard 

USAGE: 

DP  = VDOTN  (A,  B,  N) 

DIMENSION  A(N) , B(N) 

Input:  A = Vector  of  dimension  N 

B = Vector  of  dimension  N 
__  N 

Output:  DP  = A * B = 2 ^i  Bi 

i=l 

SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

N > 0 

STORAGE: 

O 

M 

o 

II 

Cn 

O 

00 
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SUBJECT: 


FORTRAN  IV  Function  VDOTP 


PURPOSE: 

METHOD: 


USAGE : 


To  find  dot -product  of  two  vectors. 

/bl\ 
= { b2  )* 

\b3/ 

is  the  scalar  P = a^  bi  + &2  b£  + a.3  b3. 

DIMENSION  A(3),  B(3) 

P = VDOTP  (A,  B) 

Input:  A = Vector  A 

B = Vector  B 

Output:  P = A • B 


,aA 


Given  two  vectors  A = a, 


2 j and  B 
3/ 


dot -product 


SUBPROGRAM 

CALLED: 

None 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

4310 
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SUBJECT: 


FORTRAN  IV  Subroutine  VEL1 


PURPOSE:  To  compute  velocity  components  and  pressures  induced 

at  field  points  by  sources  and  doublets  on  an  isolated 
body  (Refer  to  KARMOR). 

METHOD:  The  equations  used  in  this  routine  are  given  in  Part  I, 

section  4.4. 

USAGE:  COMMON/FLOVl/KACE,  NPANEL,  NBODY,  NWING, 

NBODYS,  NWINGS,  NROW(2),  XMACH,  SYM 

DIMENSION  A(210,  3,  4),  B(210,  3,  4),  C(210,  3,  4), 
NPART(210) 

DIMENSION  ALPHAS  (210),  THETA(210) 

DIMENSION  XB(50),  R(50),  WT(120) 

DIMENSION  T(50),  TC(50),  SST(210),  CHORD(210) 

COMMON/FLOV2/A,  B,  C,  NPART,  ALPHAS,  THETA, 
XB,  R,  WT,  T,  TC,  SST,  CHORD 

COMMON/FLO V3 /Til,  TC11 

COMMON/THICK/THKW,  ARA 

CALL  VEL1  (X,  Y,  Z,  UU,  VV,  WW) 

Input:  X = x-coordinate  of  field  point. 

Y = y-coordinate  of  field  point. 

Z - z-coordinate  of  field  point. 

XB  = Array  of  x- coordinates  of  the  body 

line  source  and  doublet  segments. 

R = Array  of  body  radii,  defined  at  the 

XB  coordinates. 

T = Array  of  line  source  strength. 

TC  = Array  of  doublet  strengths. 

Til  = Strength  of  linearly  varying  source. 

TC11  = Strength  of  linearly  varying  doublet. 

ARA  = Angle  of  attack. 
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Output: 

uu 

= x-direction  velocity  component  due 
to  body. 

vv 

= y-direction  velocity  component  due 
to  body. 

ww 

= z-direction  velocity  component  due 
to  body. 

SUBPROGRAMS 

CALLED: 

A LOG 

COS 

SQRT 

SIN 

ATN1 

' (Built-in  functions) 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

40010  = 

7408 
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SUBJECT: 


FORTRAN  IV  Subroutine  WBX 


PURPOSE: 


METHOD: 


To  find  the  intersections  of  a set  of  wing  percent  chord 
lines  with  a body  surface  and  to  delete  the  portions  of 
percent  chord  lines  inside  the  body. 

The  body  surface  is  defined  by  an  array  of  NB  meridian 
lines  and  a code  that  determines  body  shape  between  merid- 
ian lines  (see  subroutine  WBXUL).  Each  wing  percent 
chord  line  consists  of  a series  of  straight-line  segments 
connecting  three-dimensional  points.  The  intersection  of 
each  wing  percent  chord  line  with  the  body  surface  is  then 
calculated. 

The  body  is  cut  (see  subroutine  WBXC)  by  a transverse 
plane  that  passes  through  the  first  wing  percent  chord  point. 
The  horizontal  distance  normal  to  the  x-axis  from  the  per- 
cent point  to  the  body  surface  is  found  in  this  region.  This 
calculation  is  repeated  for  successive  percent  chord  line 
points  until  a change  in  sign  of  the  distance  is  detected; 
this  means  that  the  last  two  wing  points,  and  W2  for 
example,  are  on  opposite  sides  of  the  body  surface.  An 
iterative  procedure  is  now  used  to  locate  the  intersection 
point. 


Let  a be  the  distance  along  the  line  segment  W2  from 
Wi  to  some  point  W on  the  segment.  Let  f(a ) be  the  hori- 
zontal distance  from  W to  the  body  surface.  If  L is  the 
length  of  Wj_  W2,  then  f(0)  and  f(L)  have  opposite  signs 
(because  f(0)  corresponds  to  and  f(L)  corresponds  to 
W2).  Subroutine  FROOTA  is  used  to  iterate  on  a until 
f(  a)  is  as  small  as  possible.  The  point  W is  then  on  or 
very  near  the  body  surface;  the  corresponding  point  on  the 
body  surface  is  taken  as  the  intersection. 

If  the  first  wing  percent  chord  line  point  is  forward  or  aft 
of  the  body,  the  transverse  plane  through  the  point  does 
not  intersect  the  body;  WBX  then  continues  to  process 
points  until  a body  intersection  is  found.  If  all  points  so 
far  processed  are  on  the  same  side  of  the  body  surface, 
and  the  current  point  is  forward  or  aft  of  the  body,  then 
the  previous  point  is  taken  as  Wj;  W2  is  found  by  sub- 
routine WBXD  as  the  intersection  of  the  percent  chord  line 
with  a transverse  plane  through  the  appropriate  body  end. 

If  all  percent  chord  lines  are  processed  without  finding  two 
adjacent  points  on  opposite  sides  of  the  body  surface,  the 
intersection  point  is  taken  as  (1030,  1030,  1030)  to  indicate 
that  no  intersection  point  was  found. 
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USAGE: 


SUBPROGRAMS 

CALLED: 


DIMENSION  B(l) , W(l),  S(2,  NB),  BW(3,  NW),  NU(3) 


CALL  WBX  (B,  NB,  W,  NW,  EPS,  KODE,  S,  BW,  NU) 

Input:  B = Array  of  body  meridian  lines  (described 

in  subroutine  WBXUL). 

NB  = Number  of  meridian  lines. 


W = Array  of  wing  percent  chord  lines  (de- 

scribed in  subroutine  WBXUL). 

NW  = Number  of  percent  chord  lines. 

EPS  = Tolerance  — a message  will  be  written 
on  the  output  tape  (see  NU)  if  the  error 
in  finding  an  intersection  is  greater  than 
EPS. 


KODE  = A code  that  determines  the  shape  of  the 
body  surface  between  meridian  lines 
(see  subroutine  WBXUL). 

NU  = Error  indicator  array:  NU(1)  is  not 

used  on  input.  NU(2)  is  an  output  tape 
number  on  which  to  write  a message  if 
an  error  is  detected;  no  message  is 
written  if  NU(2)  < 0.  NU(3)  is  an  error 
message  limiter;  if  an  error  is  detected, 
NU(3)  = (NU(3)  - 1).  Then  if  NU(3)  > 0 
and  NU(2)  > 0,  an  error  message  is 
written. 


Scratch:  S 
Output:  W 

BW 

NU 


= Storage  for  sections  through  the  body. 

= Array  of  wing  percent  chord  lines, 
truncated  at  the  body  surface. 

= Array  of  intersection  points  (x^,  y^,  z^). 

= Error  indicator  array:  NU(1)  is  zero 

if  no  error  is  detected.  NU(3)  may 
have  been  changed  (see  INPUT,  above). 


UVECN 

FROOTA 

TRAV 

WBXA 

WBXC 

WBXD 
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ERROR  RETURNS:  The  following  message  is  written  (see  NU)  if  an  error  is 

detected:  "ERROR  i,  CODE  j IN  SUBROUTINE  WBX, 

WING  PERCENT  LINE  m , POINT  n. " 

i_  j_  Explanation 

4 1 WBXA  error;  see  note  1,  below. 

5 2 WBXD  error;  see  message  written  by  WBXD. 

6 -3  WBXC  error;  first  and  last  points  in  a body  section 

(through  a wing  percent  line  point)  have  the  same 
z -coordinate. 

7 3 WBXC  error;  two  points  in  body  section,  near  the 

wing -body  intersection,  have  the  same  z -coordinate 

8 1 A wing  percent  chord  line  point  is  above  or  below  the 
2 body  section  and  has  the  same  y-coordinate  as  the 

first  or  last  section  point. 

9 - See  note  1. 

10  k WBXC  error  k in  iteration  loop. 

11  k FROOTA  error;  see  note  1. 

12  0 Iteration  to  find  intersection  did  not  converge ; see 

note  1. 

Note  1:  Machine  or  program  error. 

RESTRICTIONS:  If  a wing  percent  chord  line  intersects  the  body  surface  more 

than  once,  only  one  intersection  point  will  be  found.  Body 
sections  in  the  wing-body  intersection  region  must  be  single- 
valued in  y as  a function  of  z . Wing  percent  chord  lines 
must  have  at  least  one  point  that  lies  between  body  station 
planes  through  the  body  ends . A percent  chord  line  inter- 
section will  not  be  found,  even  though  it  exists,  if  all  percent 
chord  points  except  the  last  are  forward  (or  aft)  of  the  body. 

STORAGE:  605,  = 1135  Q 

10  o 
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SUBJECT: 

PURPOSE: 

METHOD: 


USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 
STORAGE : 


FORTRAN  IV  Subroutine  WBXA 

To  modify  a wing  percent  chord  line  array  so  that  the  first  part 
of  a given  percent  chord  line  is  removed. 

The  format  of  the  wing  percent  chord  line  array,  B,  is  ex- 
plained in  Appendix  D.  K,  the  number  of  points  to  be  re- 
moved, and  P,  the  new  first-point,  are  given.  If  K = 0,  P 
is  not  used  and  the  entire  old  percent  chord  line  is  moved  to  its 
new  position.  Otherwise,  K points  are  removed  and  P,  fol- 
lowed by  the  remaining  points,  is  moved.  The  corresponding 
portion  of  the  array  header  is  adjusted  to  reflect  the  new 
location  of  the  percent  chord  line  in  the  array  and  the  new 
number  of  points.  The  remaining  percent  chord  lines  are 
not  disturbed. 


DIMENSION  B(l) , P(3) 

CALL  WBXA  (B,  I,  K,  P,  NU) 

Input:  B = Percent  chord  line  array. 

I = The  percent  chord  line  to  be  modified. 

K = Number  of  points  to  be  removed. 

P = New  first -point. 

Output:  B = Modified  percent  chord  line  array. 

NU  = Error  indicator,  which  is  zero  if  successful. 


None 

NU  = 1 ifK  <0orifK  ^ number  of  points  in  old  percent  ■ 
chord  line. 

WBXA  must  be  called  successively  with  I = 1,  2,  . . . , N 
where  N = number  of  percent  chord  lines. 

202  = 312 

10  8 
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SUBJECT: 

PURPOSE: 

METHOD: 

| 

! 

! 


USAGE: 


FORTRAN  IV  Subroutine  WBXC 

To  find  the  distance  from  an  arbitrary  point  to  a body 
surface. 

The  body  is  described  by  NB  meridian  lines  (see  subroutine 
WBXUL).  Let  P(xp,  yp,  zp)  be  the  given  point.  Subroutine; 
BCUTX  is  used  to  find  the  intersection  points  (yp  zj)  of  the 
plane  x = xpwith  the  meridian  lines.  The  points  form  a 
body  section,  S. 


Let  Q(xq,  yQ,  zq)  be  a point  on  the  body  so  that  xq  = xp, 
Zq  = zp.  The  value  of  yq  is  found  by  interpolation  at  z = 
zQ  from  the  table  (z^  y^,  using  subroutine  BITURP.  If 
a given  code  is  1,  the  interpolation  is  linear  (Q^  in  figure); 
if  the  code  is  2,  the  interpolation  is  biquadratic  (Q2  in 
figure).  This  code  effectively  determines  the  body  shape 
between  meridian  lines.  If  P should  be  above  the  body 
(see  P'  in  drawing),  then  Q is  taken  as  the  first  meridian 
line  point.  Similarly,  the  last  meridian  line  point  is  used 
for  Q if  P is  below  the  body.  The  required  distance  from 
P to  the  body  surface  is  yp  - yQ. 

DIMENSION  B(l),  P(3),  S(2,  NB),  Q(3) 

CALL  WBXC  (B,  NB,  EP,  P,  KODE,  S,  D,  Q,  NU) 

Input:  B = Array  of  body  meridian  line  points,  with 

header  (see  subroutine  WBXUL). 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
RESTRICTIONS: 

STORAGE: 


NB  = Number  of  body  meridian  lines. 


EP 


P 

KODE 


Output:  S 
D 

Q 

NU 


Tolerance  used  by  BCUTX  in  finding 
intersections  of  body  meridian  lines  with 
the  plane  x = P(l). 

x,  y,  z coordinates  of  given  point. 

Code,  used  by  BITURP,  that  determines 
the  shape  of  the  body  between  meridian 
lines . KOD  = 1 if  polygonal,  2 if  not 
(see  METHOD,  above). 

Section  points  (y^  Zj),  i = 1,  2,..,  NS, 
where  NS  < NB. 

Distance. 

Point  on  body  surface. 

Error  indicator  array.  NU  = 0,  1 or  2 
if  successful;  0 if  Q(3)  = P(3),  1 if  S^ 
was  used  for  Q,  2 if  S^b  was  used  for 
Q. 


BITURP 

BCUTX 

NU  = -5  if  the  number  of  section  points  is  less  than  2;  this 
may  be  caused  by  NB  < 2 or  failure  of  the  plane  x = xp  to 
cut  some  of  the  meridian  lines . NU  = -3  if  S-^  and  SNB 
have  the  same  z-coordinate. 

The  value  of  D returned  is  the  horizontal  distance  between 
P and  Q;  if  P is  above  or  below  the  body,  the  true  distance 
is  greater  than  D.  If  all  meridian  lines  do  not  have  the 
same  x- range,  the  number  of  section  points  (S)  may  possibly 
be  less  than  NB;  see  BCUTX. 

13910  = 213g 
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SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  WBXD 

To  find  a point  on  a wing  percent  chord  line  which  lies  in  the  first 
or  last  body  station  plane,  and  to  determine  the  horizontal 
distance  of  that  point  from  the  body  surface. 

Subroutine  WBXD  is  called  by  subroutine  WBX  only  if  the 
following  situation  arises:  At  least  one  point,  Wj,  for 
instance,  on  some  wing  percent  chord  line  has  been  processed; 
but  the  next  point,  W2,  is  either  forward  or  aft  of  the  body. 

Let  BXF  and  BXL  be  the  extreme  x-coordinates  of  body 
meridian  line  1;  let  WXF  and  WXL  be  the  x-coordinates  of 
Wi  and  Wo,  respectively.  If  BXF  lies  in  the  range  (WXF, 

WXL),  a plane  x = BXF  is  formed;  otherwise  BXL  is  assumed 
to  be  the  range  and  the  plane  is  taken  as  x = BXL.  The 
line  segment  W]W2  is  intersected  with  the  plane  to  obtain 
point  P,  which  lies  on  the  wing  percent  line.  The  horizontal 
distance  from  P to  the  body,  and  the  corresponding  point  Q 
on  the  body  are  then  found  by  subroutine  WBXC. 


DIMENSION  R(4),  B(l),  P(3),  Q(3),  S(2,  NB),  W(3,  2), 
NU(3) 

Call  WBXD  (R,  B,  NB,  KODE,  P,  Q,  S,  W,  NU) 


Input:  B = Array  of  body  meridian  line  points,  with 

header  (see  subroutine  WBXUL). 


NB  = Number  of  body  meridian  lines. 

KODE  = Body  shape  code  (see  WBXC). 

W = Two  adjacent  points  on  a wing  percent  chord 
line  (see  W-^  and  W2,  METHOD,  above). 

NU  = Error  indicator  array.  NU(1)  is  not  used, 
on  input.  NU(2)  is  an  output  tape  number 
on  which  to  write  a message  if  an  error 
is  detected;  no  message  is  written  if 
NU(2)  < 0.  NU(3)  is  an  error  message 
limiter;  if  an  error  is  detected,  NU(3)  = 
(NU(3)  - 1).  Then  if  NU(3)  > 0 and  NU(2) 

> 0,  an  error  message  is  written. 


Output:  S 
R 


= Section  points  (Y^,  Z •). 

= R(l)  = x-coordinate  of  P;  R(2)  = horizontal 
distance  = P(2)  - Q(2);  R(3)  = R(l);  R(4) 


380 


SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 


RESTRICTIONS: 

STORAGE: 


P = x,  y,  z coordinates  of  point  on  wing  percent 
chord  line. 

Q = Corresponding  point  on  body  surface. 

NU  = Error  indicator  array.  NU(1)  is  zero 
if  success.  NU(3)  may  have  changed  if 
an  error  was  detected  (see  Input). 

POLXN 

WBXC 

A message  "ERROR  i,  CODE  j,  IN  SUBROUTINE  WBXD” 
is  written  if  an  error  is  detected. 

1 i Explanation 

1 0 Machine  or  program  error. 

2 k Error  k from  WBXC.  If  k = 1 or  2,  point  P is 

above  or  below  the  body  and  P(2)  = Q(2). 

See  WBXC 
2191q  = 333g 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  WBXUL 

To  find  the  intersections  of  upper  and  lower  wing  percent  chord 
lines  with  a body  surface,  to  delete  the  portions  of  percent  chord 
lines  that  are  inside  the  body,  and  to  write  results. 

A set  of  NB  meridian  lines  defines  the  basic  body  surface. 

These  lines  may  be  visualized  as  stringers  running  length- 
wise along  the  surface  of  the  body.  Each  meridian  line 
consists  of  a series  of  straight-line  segments  connecting 
three-dimensional  points.  The  surface  between  meridian 
lines  is  determined  by  taking  any  section,  normal  to  the  X- 
axis,  through  the  body;  this  yields  the  (Y,  Z)  coordinates  of 
NB  points  on  the  surface.  Under  one  option,  the  surface  at 
this  section  is  assumed  to  be  polygonal  (adjacent  points  con- 
nected by  straight  lines).  In  the  other  option,  the  surface  be- 
tween each  pair  of  points  is  assumed  to  be  represented  by  a 
cubic;  points  between  meridian  lines  are  interpolated  by  sub- 
routine BITURP. 

The  wing  surface  (upper,  lower,  or  both)  is  defined  by  NW 
wing  percent  chord  lines,  which  are  similar  to  meridian 
lines . The  O-percent  line  forms  the  leading  edge  of  the 
wing,  and  the  100-percent  line  is  the  trailing  edge.  The 
wing  surface  is  not  defined  between  percent  chord  lines . 

The  main  function  of  WBXUL  is  to  find  the  point  of  inter- 
section of  each  wing  percent  chord  line  with  the  body  surface. 

All  of  the  body  meridian  line  points  are  stored  in  a single 
array.  The  first  3*NB  cells  form  a "header"  that  is  a key 
to  the  rest  of  the  array.  Cell  1 is  a number  that  forms  a 
label  for  the  first  meridian  line.  Cell  2 contains  the 
number  of  points  in  the  first  meridian  line.  Cell  3 con- 
tains the  cell  number  at  which  the  x-coordinate  of  the  first 
point  in  the  first  meridian  line  is  located.  Similarly,  cells 
4,  5,  and  6 apply  to  the  second  meridian  line,  etc.  This 
storage  scheme,  described  in  Appendix  D,  is  also  used  for 
the  upper  wing  percent  lines  and  the  lower  percent  lines. 

The  subroutine  begins  by  a check  that  the  body  and  at  least 
one  wing  surface  are  defined.  Then  one  card  is  read  with 
FORMAT(2F10.  0).  The  first  field  contains  a code,  later 
used  by  BITURP,  that  determines  body  shape  between 
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USAGE: 


meridian  lines  (1  if  polygonal,  2 if  not).  The  second  field 
contains  a tolerance,  EPS,  that  is  set  to  10“5  if  less  than 
10“ 5 ; subroutine  WBX  writes  a message  if  the  error  in 
locating  an  intersection  point  is  more  than  EPS.  The  fol- 
lowing process  is  then  carried  out,  for  the  upper  wing 
surface  and  then  the  lower. 

If  the  wing  surface  is  defined,  storage  is  reserved  in  the 
buffer  for  the  intersection  points  (see  Appendix  A).  Sub- 
routine WBX  is  called  to  find  the  intersection  points  and 
remove  that  part  of  each  wing  percent  chord  line  inside 
the  body  surface.  Each  wing  percent  chord  line  now 
starts  at  the  body  surface;  this,  of  course,  requires  a new 
"header"  for  the  array.  The  X,  Y,  Z and  polar  coordinates 
of  each  intersection  point  are  written  on  the  output  tape.  The 
polar  coordinate  system  for  each  point  lies  in  a plane 
through  the  point  and  normal  to  the  X-axis,  with  origin  at 
the  known  body  axis ; the  angle  is  measured  from  the  verti- 
cal (Z-axis).  If  any  percent  line  fails  to  intersect  the 
body  surface,  a message  is  written  but  the  routine  con- 
tinues. 


DIMENSION  B(l),  DAT (2) , LOK(3,  9),  BTITLE(12), 
WTITLE(12),  B AXIS  (2),  NU(3) 

LOGICAL  LGDEF(3,  6) 


CALL  WBXUL(B,  LI, 
WTITLE,  BAXIS,  NU) 

Input:  B 

LI 

LO 

DAT 

LGDEF(2,  1) 
(2,  2) 


LO,  DAT,  LGDEF,  LOK,  BTITLE, 

= Storage  buffer  for  variable  length 
arrays . 

= Input  tape  number. 

= Output  tape  number. 

= Date  (alphameric). 

= .TRUE,  if  upper  wing  is  defined. 
= .TRUE,  if  lower  wing  is  defined. 


(2,  3)  = .TRUE,  if  body  is  defined. 

LOK  = Array  that  tells  where  in  B 

the  wing  percent  chord  line 
arrays  and  body  meridian  line 
array  are  located,  and  the 
length  of  each  array . Con- 
sider LOK(l,  j):  The  upper  wing 
percent  chord  line  corresponds  to 
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LOK(i,  1),  the  lower  to  LOK(i,  2); 
the  body  corresponds  to  LOK(i,  3). 
An  array  starts  in  B(LOK(l,  j)). 
LOK(2,  j)  = number  of  percent  chord 
lines  or  meridian  lines . LOK(3, 
j)  = total  number  of  elements  in 
array. 

BTITLE 

= Body  title  (alphameric). 

WTITLE 

= Wing  title  (alphameric) . 

BAXJS 

= Y and  Z coordinates  of  the  body 
axis. 

NU 

= Error  indicator  array:  NU(1)  is 

not  used,  on  input.  NU(2)  is  an 
output  tape  number  on  which  to 
write  a message  if  an  error  is 
detected;  no  message  is  written 
if  NU(2)  < 0.  NU(3)  is  an  error 

message  limiter;  if  an  error 
is  detected,  NU(3)  =<NU(3)  - 1). 

Then  if  NU(3)  > 0 and  NU(2)> 

0,  an  error  message  is  written. 

Output:  B = Storage  buffer  for  variable- 

length  arrays. 

LGDEF(1,  5)  = Set  equal  to  LGDEF  (1,  1)  to  indi- 
cate that  a wing-body  intersection 
was  requested. 

(1,  6)  = Set  equal  to  LGDEF  (1,  2). 

(2,  5)  = Set  to  .TRUE,  if  intersections  of 
the  upper  wing  percent  chord  lines 
with  the  body  were  found. 

(2,  6)  = Set  to  .TRUE,  if  intersections  of 
the  lower  wing  percent  chord  lines 
with  the  body  were  found. 

LOK  = Array  that  tells  where  in  B vari- 

ous arrays  are  stored  (see  Input). 

The  truncated  upper  wing  percent  chord 
lines  (part  outside  body)  corres- 
pond to  j = 3,  the  lower  to  j = 4; 
the  upper  intersection  point  array 
corresponds  to  j = 8,  the  lower 
to  j = 9.  An  array  starts  in 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


RESTRICTIONS: 


STORAGE: 


- B(LOK(l,  j)).  LOK(3,  j)  = total 
number  of  elements  in  array. 
L0K(2,  j)  = number  of  percent 
lines  if  j = 3 or  4.  LOK(2,  j) 
is  not  used  for  j = 8 or  9. 

NU  = Error  indicator  array.  NU(1) 

is  zero  if  success.  NU(3)  may 
have  been  changed  if  an  error 
was  detected;  see  Input,  above. 

ATN1 

WBX 

MERR 

SQRT  (Built-in  function) 

TRAV 

IRSERV  \ . . ..  A. 

IPACK  J <see  APP®ndlx  A) 

Function  MERR  is  used  to  write  a message  "ERROR  i, 
CODE  j IN  SUBROUTINE  WBXUL  DURING  GEOMETRIC 
DEFINITION"  if  an  error  is  detected. 

i_  i Explanation 

1 0 Either  the  body  or  wing  was  not  successfully  de- 

fined. However,  if  both  upper  and  lower  wing 
surfaces  were  requested  but  one  surface  failed, 
this  error  will  not  stop  WBXUL  (provided  the 
body  is  defined). 

2 0 1 The  storage  buffer , B , is  not  large  enough  or , 

3 0 f a storage  error  has  been  detected. 

4 k Error  k from  WBX. 

The  storage  buffer,  B,  must  have  been  initialized  by  sub- 
routine INIBFR  (see  Appendix  A)  or  its  equivalent.  The 
original  wing  percent  lines  (stored  starting  in  B(LOK(l,  i)), 
i = 1 and  2)  are  destroyed. 

75810  = 1366g 
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SUBJECT: 


FORTRAN  IV  Subroutine  WBXX 


PURPOSE: 

METHOD: 


To  find  the  intersections  of  a set  of  wing  percent  chord 
lines  with  a body  surface. 

The  body  surface  is  defined  by  an  array  of  NB  meridian 
lines  and  a code  that  determines  body  shape  between 
meridian  lines  (see  subroutine  WBXUL) . Each  wing  per- 
cent line  consists  of  a series  of  straight-line  segments 
connecting  three-dimensional  points . The  intersection  of 
each  wing  percent  chord  line  with  the  body  surface  is 
found  in  turn. 

The  body  is  cut  (see  subroutine  WBXC)  by  a transverse 
plane  that  passes  through  the  first  wing  percent  chord 
line  point.  In  this  section,  normal  to  the  X-axis,  the 
horizontal  distance  (with  sign)  from  the  percent  point  to 
the  body  surface  is  found . This  process  is  repeated  for 
successive  percent  chord  line  points  until  a change  in 
sign  of  the  distance  is  detected;  this  means  that  the  last 
two  wing  points,  and  Wg , for  example,  are  on  oppo- 
site sides  of  the  body  surface.  An  iterative  procedure 
is  now  used  to  locate  the  intersection  point. 

Let  a be  the  distance  along  the  line  segment  wjwjj  from 
Wj  to  some  point  W on  the  segment.  Let  f (a ) be  the 
horizontal  distance  from  W to  the  body  surface.  If  L is 
the  length  of  W1W2,  then  f(0)  and  f(L)  have  opposite  signs 
(because  f(0)  corresponds  to  and  f(L)  corresponds  to 
W2).  Subroutine  FROOTA  is  used  to  iterate  on  a until 
f(tt)  is  as  small  as  possible.  The  point  W is  then  on  or 
very  near  the  body  surface;  the  corresponding  point  on  the 
body  surface  is  taken  as  the  intersection. 

If  the  first  wing  percent  chord  line  point  is  forward  or  aft 
of  the  body,  the  transverse  plane  through  the  point  does  not 
intersect  the  body;  WBXX  then  continues  to  process  points 
until  a body  intersection  is  found.  If  all  points  so  far 
processed  are  on  the  same  side  of  the  body  surface,  and 
the  current  point  is  forward  or  aft  of  the  body,  then  the 
previous  point  is  taken  as  Wj;  W2  is  found  by  subroutine 
WBXD  as  the  intersection  of  the  percent  chord  line  with  a 
body  station  plane  through  the  appropriate  body  end.  If 
all  percent  chord  lines  are  processed  without  finding  two 
adjacent  points  on  opposite  sides  of  the  body  surface,  the 
intersection  point  is  taken  as  (1030,  1030,  1030)  to  indicate 
that  no  intersection  point  was  found. 
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USAGE: 


SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


DIMENSION  B(l),  W(l),  S(2,  NB),  BW(3,  NW),  NU(3) 


CALL  WBXX  (B,  NB,  W,  NW,  EPS,  KODE,  S,  BW,  NU) 


Input:  B 

NB 

W 

NW 

EPS 


= Array  of  body  meridian  lines  (described 
in  subroutine  WBXUL). 

= Number  of  meridian  lines. 

= Array  of  wing  percent  chord  lines  (de- 
scribed in  subroutine  WBXUL). 

= Number  of  percent  chord  lines. 

= Tolerance;  a message  will  be  written  on 
the  output  tape  (see  NU)  if  the  error  in 
finding  an  intersection  is  greater  then 
EPS. 


KODE  - A code  that  determines  the  shape  of  the 
body  surface  between  meridian  lines  (see 
subroutine  WBXUL). 

NU  = Error  indicator  array.  NU(1)  is  not  used, 
on  input.  NU(2)  is  an  output  tape  number 
on  which  to  write  a message  if  an  error 
is  detected;  no  message  is  written  if 
NU(2)  < 0.  NU(3)  is  an  error  message 
limiter;  if  an  error  is  detected,  NU(3)  = 
(NU(3)  - 1).  Then  if  NU(3)  > 0 and  NU(2) 
> 0,  an  error  message  is  written. 


Scratch:  S = Storage  for  sections  through  the  body. 

Output:  BW  = Array  of  intersection  points  (xj,  yj,  Zj). 

NU  = Error  indicator  array.  NU(1)  is  zero 

if  no  error  is  detected.  NU(3)  may  have 
been  changed  (see  Input,  above). 


UVECN 

FROOTA 

TRAV 

WBXC 

WBXD 


The  following  message  is  written  (see  NU)  if  an  error  is 
detected:  "ERROR  i,  CODE  j IN  SUBROUTINE  WBXX, 
WING  PERCENT  LINE  m,  POINT  n. " 
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RESTRICTIONS: 


STORAGE: 


j_  j_  Explanation 

5 2 WBXD  error;  see  message  written  by  WBXD. 

6 -3  WBXC  error;  first  and  last  points  in  a body  section 

(through  a wing  percent  line  point)  have  the  same 
z-coordinate . 

7 3 WBXC  error;  two  points  in  body  section,  near  the 

wing-body  intersection,  have  the  same  Z-coordinate 

8 1 A wing  percent  line  point  is  above  or  below  the 
^ body  section  and  has  the  same  Y-coordinate  as 

the  first  or  last  section  point. 

9 - See  note  1,  below. 

10  k WBXC  error  k in  iteration  loop. 

11  k FROOTA  error;  see  note  1. 

12  0 Iteration  to  find  intersection  did  not  converge;  see 

note  1. 

Note  1:  Machine  error  or  program  error. 


If  a wing  percent  chord  line  intersects  the  body  surface  more 
than  once,  only  one  intersection  point  will  be  found.  Body 
sections  in  the  wing-body  intersection  region  must  be  single- 
valued in  y as  a function  of  z . Wing  percent  chord  lines 
must  have  at  least  one  point  that  lies  between  body  station 
planes  through  the  body  ends.  A percent  chord  line  inter- 
section will  not  be  found,  even  though  it  exists,  if  all  percent 
points  except  the  last  are  forward  (or  aft)  of  the  body. 


584 


10 


11108 
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SUBJECT: 


FORTRAN  IV  Subroutine  WING 


PURPOSE:  To  serve  as  control  program  for  wing  paneling  subroutines. 


METHOD:  Program  uses  a series  of  FORTRAN  IV  language  "CALL" 

instructions  to  call  required  wing  paneling  subroutines. 

The  program  has  the  following  labeled  COMMON  statement 
that  is  also  in  all  lower  level  wing  geometry  paneling  sub- 
routines , 

COMMON  /COM2/ IJ,  NPTS(16),  X(90,  16),  Y(90,  16), 

Z(90,  16),  KPNT,  VALUE (5),  YCEPT(16),  SLOPE, 
KPANEL(2,  15),  XCOR(16,  16),  YCOR(16,  16),  ZCOR(16,  16) 
XINT(2,  15),  YINT(2 , 15),  ZINT(2,  15),  XCEN(15,  15), 
YCEN(15,  15),  ZCEN(15,  15),  XCON(15,  15),  YCON(15,15), 
ZCON(15,  15),  AREA (15 , 15),  ARAT(15,  15),  THETA(15 , 15), 
ALPHA(15 , 15),  CHORD (15 , 15),  XFOIL(16,  25,  2), 
ZFOIL(16,  25,  2),  XNUM(16,  2),  XTAB1(25),  ZTAB1(25), 
XTAB2(25),  ZTAB2(25) 

IJ  = Code  for  internal  program  control. 

NPTS  = Number  of  points  on  the  successive  wing 

percent  chord  lines  that  define  the  wing. 

= x,  y,  z coordinates  of  points 
on  wing  percent  chord  lines. 

KPNT  = Input  constant 

VALUE  = Input  array. 

YCEPT  = y- intercepts  of  wing  cutting  planes. 

SLOPE  = Slope  (dx/dy)  of  outboard  wing  edge. 

KPANEL  = Code  for  wing  panel  type.  If  KPANEL 
(I,  J)  = 1,  additional  subpanel  comer 
point  is  located  on  trailing  edge.  If 
KPANEL(I,  J)  = 2,  point  is  located  on 
leading  edge.  Note  this  code  is  deter- 
mined only  for  panels  on  inboard  column 
jf  body  and  wing  intersect  in  nonstream  - 
wise  line,  and  for  panels  on  outboard 
edge  if  outboard  edge  is  a nonstream - 
wise  line. 


X 

Y 

Z 
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USAGE: 


XCOR 

YCOR 

ZCOR 

XINT 

YINT 

ZINT 

XCEN  | 
YCEN  I 

ZCEN: 

XCON  | 
YCON  I 

ZCON 

AREA 

ARAT 

THETA 

ALPHA 

XFOIL 

ZFOIL 

XNUM 

XTAB1 

XTAB2 

ZTAB1 

ZTAB2 


= x,  y,  z coordinates  of  wing 
panel  corner  points. 


= x,  y,  z coordinates  of  addi- 
tional wing  panel  point. 

= x and  y coordinates  of  wing  panel 
centroid. 

= Wing  panel  thickness  ordinate. 

= x and  y coordinates  of  wing  panel 
control  point. 

= Wing  panel  camber  ordinate. 

= Wing  panel  area. 

= Ratio  of  subpanel  area  to  panel  area. 

= Wing  panel  thickness  slope. 

= Wing  panel  camber  slope. 


= Input  arrays. 


= Temporary  storage  arrays  used  in  sub- 
routine slope. 


COMMON  (See  subroutine  OPCAMI  for  description  of  un- 
labeled COMMON) 

CALL  WING 
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SUBPROGRAMS 

CALLED: 

ERROR  RETURNS: 
STORAGE: 


INPUTW 

CRNRW 

AREAP 

CENTRD 

CNTRLW 

CHORDW 

SLOPEW 

OUTPTW 


Error  message  indicates  whether  error  occurred  in  cal- 
culation of  wing  panel  geometry. 

220io  = 334g 
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SUBJECT: 


FORTRAN  IV  Subroutine  WING1 


PURPOSE: 


METHOD: 


USAGE: 


To  read  data  cards  that  describe  a wing  by  a planform  and 
a set  of  control  airfoils,  and  put  this  data  in  a standard 
form  suitable  for  other  subroutines. 

All  of  the  data  cards  described  in  the  attachment  to  sub- 
routine WINGA  are  read.  After  the  first  three  cards  are 
read  and  checked,  appropriate  information  is  written  on  the 
output  tape.  Then  storage  is  reserved  in  a buffer  for  vari- 
able length  and  scratch  arrays  (see  Appendix  A).  Points 
describing  the  planform  are  read  from  cards  4 and  5 . Sub- 
routine WING1A  is  called  to  read  cards  6,  7,  and  8,  scale 
the  control  airfoils  to  fit  on  the  planform,  and  find  the 
leading  and  trailing  edge  points  corresponding  to  each  air- 
foil. The  original  planform  is  assumed  to  be  straight  be- 
tween given  points;  a new  planform  is  constructed  by 
joining  the  airfoil  leading  edge  points  and  the  trailing  edge 
points.  These  planforms  may  differ  as  shown  below. 


After  releasing  scratch  storage  from  the  buffer,  B,  the 
percentages  at  which  wing  percent  chord  lines  are  to  be 
constructed  are  read  and  checked.  If  an  error  is  detected, 
a message  is  written. 

DIMENSION  B(l) , DAT(2),  KOD(2),  TITLE (12),  NU(3) 
LOGICAL  LOGUL(2) 

CALL  WING1  (B,  LI,  LO,  DAT,  LLETE,  LOGUL,  NAF, 
NPL,  LAFN,  LPCT,  KOD,  CHD,  EPS, 
TITLE,  NU) 

Input:  LI  = Input  tape  number. 

LO  = Output  tape  number. 


392 


DAT  = Date  (alphameric). 

NU  = Error  indicator  array:  NU(1)  is  not 

used  on  input.  NU(2)  is  an  output  tape 
number  on  which  to  write  a message  if 
an  error  is  detected;  no  message  is 
written  if  NU(2)  < 0.  NU(3)  is  an  error 
message  limiter;  if  an  error  is  detected, 
NU(3)  = (NU(3)  - 1).  Then  if  NU(3)  > 0 
and  NU(2)  > 0,  an  error  message  is 
written. 


Output:  B = Storage  buffer  for  variable -length  arrays. 

LLETE  = Array  containing  the  intersection  points 
(Xi,  Yi)  of  the  control  airfoil  with  the 
wing  leading  and  trailing  edges  is  stored 
starting  in  B(LLETE).  The  point  corre- 
sponding to  the  first  airfoil,  leading  edge, 
is  stored  first , followed  by  the  point  for 
the  trailing  edge.  The  intersection  points 
corresponding  to  the  remaining  airfoils 
are  similarly  stored.  This  array  corre- 
sponds to  the  PT  array  in  subroutine 
WING1A. 


LOGUL  = LOGUL(l)  = .TRUE,  if  the  upper  wing 
surface  is  defined;  LOGUL(2)  = .TRUE, 
if  the  lower  wing  surface  is  defined. 

NAF  = Number  of  control  airfoils. 

NPL  = Number  of  wing  percent  chord  lines. 

LAFN  = An  array,  starting  in  B(LAFN)  tells 

where,  in  B,  the  control  airfoil  points 
are  stored  and  the  number  of  elements 
(twice  the  number  of  points)  in  the  air- 
foil upper  or  lower  surface.  This  array 
is  the  same  as  array  NAME  in  sub- 
routine WING1A.  The  elements  in  this 
array  are  type  INTERGER,  although  B 
is  type  REAL.  The  first  four  elements 
apply  to  the  first  airfoil,  the  second 
four  elements  to  the  second  foil,  etc. 
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LPCT 

= Array  of  percentages  (to  specify  set  of 
wing  percent  chord  lines)  is  stored 
starting  in  B(LPCT). 

KOD 

= See  ACODE  and  PCODE,  card  3 (de- 
scribed in  subroutine  WINGA) . 

CHD 

= See  CHD,  card  2. 

EPS 

= See  EPS,  card  3. 

TITLE 

= See  TITLE,  card  1. 

NU 

= Error  indicator  array.  NU(1)  is  zero 
if  no  errors  are  detected.  NU(3)  may 
have  been  changed  if  an  error  was  found 
(see  Input,  above). 

SUBPROGRAMS 

CALLED:  WING1A 

MERR 
IDLETE ) 

IRSERV  > (See  Appendix  A) 
IPACK  ) 


ERROR  RETURNS:  Function  MERR  is  used  to  write  an  error  message  "ERROF 

i,  CODE  j IN  SUBROUTINE  WING1  DURING  GEOMETRir 
DEFINITION"  if  an  error  is  detected. 


i_ 

i 

Explanation 

1 

0 

WUL  (see  card  2)  is  not  0. , 1. , or  3. 

2 

0 

PNLE,  PNTE,  AFN,  or  PLN  (see  card  2)  is  less 
than  2 or  greater  than  150.  However,  this  is  not 
considered  a fatal  error. 

3 

0 

5 

0 

^ The  storage  buffer,  B,  is  not  large  enough  or  a 

8 

0 

i storage  error  has  been  detected. 

9 

0 

1 

7 

k 

Error  code  k from  subroutine  WING1A. 

10 

0 

A percentage  (see  card  9)  is  less  than  zero  or 
greater  than  100. 

RESTRICTIONS: 

None 

STORAGE: 

802 

10 

= 14428 
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SUBJECT: 

PURPOSE: 


METHOD: 


USAGE: 


FORTRAN  IV  Subroutine  WING1A 

To  read  data  cards  that  define  a set  of  control  airfoils,  to 
compute  points  on  the  airfoils  (scaled  to  fit  planform) , and 
to  find  the  intersections  of  each  airfoil  with  the  planform. 

The  wing  planform  is  given  by  a set  of  points  (X. , Y.)  on 
the  leading  edge  and  another  set  on  the  trailing  edge; 
adjacent  points  of  each  set  are  considered  to  be  connected 
by  straight  lines.  A card  is  read  (card  6,  see  WINGA) 
that  determines  the  placement  of  the  airfoil  on  the  plan- 
form  and  the  number  of  points  on  the  upper  and  lower 
surface  of  the  airfoil.  After  these  data  are  written,  the 
intersections  of  the  control  airfoil  and  the  planform 
leading  and  trailing  edges  are  found.  The  airfoil  chord 
length  is  the  distance  between  these  intersections. 

A given  code  determines  whether  the  upper  wing,  the  lower 
wing,  or  both,  are  defined.  Depending  on  this  code,  sub- 
routine WING1B  is  called  once  or  twice  to  read  cards  7 
and/or  8.  These  cards  contain  points  (U. , V.)  which  deter- 
mine shape  of  the  control  airfoil.  The  points1  are  scaled  so 
that  the  magnitude  of  the  difference  of  the  U-coordinates 
of  the  first  and  last  point  is  equal  to  the  chord  length  (as 
computed  from  the  planform) . The  scaled  points  have 
coordinates  (U',  Z)  where  U'  is  distance  along  the  airfoil 
and  Z is  in  the  wing  coordinate  system.  WING1B  also 
writes  airfoil  data  on  the  output  tape . A control  airfoil 
is  considered  to  be  a single  point  if  only  a single  point  is 
given  or  if  the  first  and  last  given  points  have  the  same 
abscissa;  in  either  case  no  scaling  takes  place,  and  the 
ordinate  of  the  first  point  will  be  taken  as  Z . If  the  set 
of  given  control  airfoil  points  contain  n > 2 points  and  has 
a nonzero  chord  length , but  the  true  chord  length  (from  the 
planform)  is  zero,  then  the  scaled  airfoil  will  have  n points 
with  all  coordinates  (0,  0);  this  is  an  alternate  way  of  spec- 
ifying a point  airfoil  in  the  x,y  plane. 

DIMENSION  B(l) , NAME (2,  2,  1),  LPLF(2),  NLTEP(3), 
PT(2 , 2,  1),  TITLE(12) , DAT(2) 

LOGICAL  LOGUL(2) 

CALL  WING1A  (B,  NAME,  LPLF , NLTEP,  LOGUL,  PT, 
LI,  LO,  TITLE,  DAT,  MU) 
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Input:  B = Storage  buffer  for  variable  length 

arrays . 

LPLF  = The  points  (X.,  Y.)  that  define  the 

leading  edge  of  the  wing  are  stored 
starting  in  B(LPLF(1));  similarly, 
the  points  on  the  trailing  edge  start 
in  B(LPLF(2)). 


NLTEP(l) 

NLTEP(2) 

NLTEP(3) 

LOGUL 


Number  of  points  on  the  leading  edge . 

Number  of  points  on  the  trailing  edge. 

Number  of  control  airfoils  = NAF . 

LOGUL(l)  = .TRUE,  if  the  upper 
wing  surface  is  to  be  defined; 
LOGUL(2)  = .TRUE,  if  the  lower 
wing  surface  is  to  be  defined. 


LI  = Input  tape  number. 

LO  = Output  tape  number. 

TITLE  = Title  (alphameric) 


DAT  = Date  (alphameric) 


Output:  B 

NAME 


PT 


MU 


= Storage  buffer  for  variable  length 
arrays . 

= Array  that  tells  where  in  B the  con- 
trol airfoil  points  are  stored , and  the 
number  of  elements  in  each  airfoil. 
The  points  (U. , Z.)  for  airfoil  j are 
stored  starting  in1B(NAME(l , i,  j)), 
where  i = 1 for  upper  surface  of  the 
airfoil,  i = 2 for  lower  surface  of  the 
airfoil . The  corresponding  number 
of  elements  (twice  the  number  of 
points)  is  stored  in  NAME (2,  i,  j). 

= Array  containing  the  intersections 
(X.,  Y.)  of  the  control  airfoils  with 
the  leading  and  trailing  edges  of  the 
wing.  The  X-coordinate  of  the  inter- 
section of  control  airfoil  j with  edge  i 
is  stored  in  PT(1,  i,  j),  where  i = 1 
for  leading  edge,  and  i = 2 for  trailing 
edge;  similarly,  the  Y-coordinate  is 
stored  in  PT(2 , i,  j). 

= Error  indicator,  which  is  zero  for 
success. 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


RESTRICTIONS: 


STORAGE: 


DISPTA 
WING  IB 

SIN  (Built-in  function) 
POLXN 

COS  (Built-in  function) 
IRSERV  (See  Appendix  A) 


See  WINGA,  card  6,  for  explanation  of  symbols. 


MU  = 5 

AFK  is  not  1. , 2. , or  3. 

MU  = 6,  7 

YL  (or  YT)  is  outside  the  range  of  the  lead- 
ing edge  (or  trailing  edge).  If  AFK  = 1.  or 
2. , MU  = 6,  if  AFK  = 3. , MU  = 7. 

MU  = 8 

The  control  airfoil  (defined  by  AFK, 

BETA,  YL,  YT)  does  not  intersect  the  lead- 
ing edge  (or  trailing  edge)  in  exactly  one  point, 

MU  = 9 

AFNU  or  AFNL  is  zero,  indicating  that  this 
control  airfoil  has  the  same  shape  as  the 
previous  airfoil , but  this  is  the  first  airfoil . 

MU  = 10 

The  storage  buffer,  B,  is  not  large  enough 
to  store  the  control  airfoil  points , 

MU  = 11 

This  control  airfoil  has  the  same  shape  as  the 
previous  airfoil,  but  the  previous  one  was  a 
single -point  airfoil. 

The  given  control  airfoil  points  are  not  checked  to  see  that 
they  have  reasonable  values.  The  storage  buffer,  B,  must 
have  been  initialized  by  subroutine  INIBFR  (Appendix  A)  or 
its  equivalent. 

71910  = 1317s 
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SUBJECT: 


FORTRAN  IV  Subroutine  WING1B 


PURPOSE:  To  read  and  write  data  points  describing  a control  airfoil 

and  to  scale  both  coordinates  of  each  point  so  that  the  air- 
foil has  a given  chord  length. 

METHOD:  After  reading  the  control  airfoil  points  (see  NOTE , below), 

from  an  input  tape , the  point  coordinates  are  written  on  an 
output  tape.  The  chord  length  of  a control  airfoil  is  taken 
as  the  magnitude  of  the  difference  in  X-coordinates  of  the 
first  and  last  points . Then  the  airfoil  is  scaled  by  multi- 
plying both  coordinates  of  each  point  by  the  ratio  of  a given 
chord  length  to  the  computed  chord  length. 

An  option  is  provided  so  that  instead  of  reading  control  air- 
foil points  from  cards , a given  array  of  points  is  used;  there- 
after, the  procedure  is  the  same.  This  feature  is  useful 
when  processing  a series  of  airfoils  which  are  similar  to  a 
preceding  airfoil.  Instead  of  writing  out  the  (unsealed)  points, 

the  remark  "THE  GIVEN AIRFOIL  IS  THE  SAME  AS 

PRECEDING  ONE"  is  written. 

An  error  code  is  returned  if  a control  airfoil  has  less  than 
two  points  or  if  the  computed  chord  length  is  zero.  Then 
the  remark  "THE  AIRFOIL  IS  A POINT"  is  written.  Since 
a single-point  control  airfoil  may  be  legitimate , the  calling 
program  can  take  appropriate  action. 

USAGE:  DIMENSION  B(l),  A(l) 

CALL  WING1B  (LI,  LO,  UL,  CHORD,  NB,  B,  NA,  A,  Nl 
Input:  LI  = Input  tape  number. 

LO  = Output  tape  number. 

UL  - Hollerith  word  "UPPER"  or  "LOWER. " 

CHORD  = Chord  length  of  the  control  airfoil. 

NB  = Number  of  elements  (twice  the  number 
of  points)  in  array  B. 

B = Array  of  points  in  a given  control  airfoil, 

stored  (x  , Zj_ , x , z2 , . . . ) . B is  not  used 
unless  NA  < 2 . 

NA  = If  NA  < 2 , this  control  airfoil  is  similar 
to  the  given  airfoil,  B,  but  has  a chord 
length  = CHORD;  the  airfoil  points  in  B will 
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SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 

NOTE: 


Output : NA 
A 


NU 


be  used  instead  of  being  read  from 
cards . If  NA  >.  2 , NA  is  the  number 
of  elements  (twice  the  number  of  points) 
in  the  control  airfoil.  NA  elements  will 
be  read  on  tape  LI. 

Twice  the  number  of  points  in  A. 

Array  of  NA/2  points  in  the  control 
airfoil , scaled  to  chord  length  = 

CHORD,  and  stored  (x  , z , x , z ,•  • •)• 

X 1 Z ct 
Error  indicator,  which  is  zero  for 
success. 


None 

NU  = -1  if  the  control  airfoil  has  less  than  two  points  or 
if  the  first  and  last  point  have  the  same  x -coordinate. 

NU  = 1 if  NA  is  less  than  2 (on  input),  and  NB  is  less 
than  4. 

A warning  message  is  printed  if  the  points  in  A are  not  in- 
creasing in  x,  but  this  condition  is  not  considered  to  be  an 
error. 


332 


10 


5148 


See  cards  7 or  8,  Wing  Input  Data  Format  (attachment  to 
subroutine  WINGA) . 
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SUBJECT: 

PURPOSE: 


METHOD: 


FORTRAN  IV  Subroutine  WING2 

To  construct  three-dimensional  points  on  wing  percent 
chord  lines  (corresponding  to  given  control  airfoils), 
and,  if  required,  to  interpolate  additional  points. 

The  input  includes  NAF  control  airfoils  and  NPL  per- 
cent values.  It  is  necessary  to  compute  NAF  points 
(Xj,  Y. , Z ) on  each  of  the  NPL  percent  chord  lines. 

A point  corresponding  to  a particular  control  airfoil 
and  a percent  chord  line  is  found  thus: 


A set  of  points  (U^,  Zj)  which  describe  the  control  airfoil 
is  illustrated  in  first  figure  above.  The  (X,  Y)  coordinates 
are  given  for  points  Pl  and  PT , shown  in  second  figure. 

The  control  airfoil  is  to  be  placed  on  the  planform  so  that 
Up  corresponds  to  Pp,  and  U-j.  to  P^;  the  U-coordinates 
of  the  airfoil  may  require  scaling  to  do  this , but  the 
Z -coordinates  are  not  to  be  scaled.  Let  p = percentage/100. 
Then 


Xp  = (1  - p)  xL  + PxT 
yp  = (i  - P)  yl  + pyt 
Up  = ,i  - p)  uL  ♦ PuT 
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The  value  of  Zp  is  found  by  interpolation  (using  subroutine 
BITURP)  from  the  control  airfoil  points  (Uj,  Zj)  at  U = Up, 
if  a control  airfoil  is  described  by  only  one  point,  Xp  = 

XL>  Yp  = YL,  and  Zp  = ZL. 

After  the  basic  percent  chord  lines  are  computed,  they  are 
written  on  the  output  tape  by  subroutine  WING2P,  Sub- 
routine RICHNA  is  then  called  to  remove  any  near-coincident 
points  in  each  percent  chord  line,  to  interpolate  additional 
points  (if  CHD  > 0.),  and  to  place  a "header"  (table  of 
contents)  in  front  of  the  array.  If  both  upper  and  lower  wing 
surfaces  are  defined , the  entire  process  is  repeated  for  the 
lower  surface.  Then  the  control  airfoil  point  arrays  and  the 
NAME  array  are  deleted  from  buffer  B,  since  they  are  no 
longer  needed. 

USAGE:  DIMENSION  B(l),  LOK(3,2),  KOD(2),  PLT(2, 2, NAF), 

NAME  (2,2,  NAF) , PCT(NPL),  TITLE (12),  DAYT  (2) , NU(3) 

LOGICAL  LGDEF(3,  6),  LOGUL(2) 

CALL  WING2  (B,  LO,  LGDEF,  LOK,  LOGUL,  NAF, 

NPL,  LAFN,  KOD,  PLT,  NAME,  PCT,  CHD,  EP,  TITLE, 
DAYT,  NU) 

Input:  B = Storage  buffer  for  variable  length  arrays . 

LO  = Output  tape  number. 

LOGUL  = LOGUL (1)  = .TRUE,  if  upper  wing  is 

defined; 

LOGUL(2)  = .TRUE,  if  lower  wing  is 
defined. 

NAF  = Number  of  control  airfoils . 

NPL  = Number  of  percent  chord  lines . 

LAFN  = The  array  NAME  starts  in  B(LAFN); 

that  is,  the  location  in  core  of  NAME 
(1,1,1)  is  the  same  as  the  location  of 
B(LAFN) . 

KOD  = Interpolation  codes . KOD(l)  is  used 

by  subroutine  BITURP:  KOD (2)  is  used 
by  subroutine  RICHNA.  (See  ACODE 
andPCODE,  card  3,  subroutine  WINGA. ) 

PLT  = Array  of  coordinates  (X^,  Yj)  of  inter- 
section points  of  control  airfoils  with 
the  leading  and  trailing  edges  of  the 
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wing.  The  intersection  point  of  the  k 
control  airfoil  with  edge  j is  stored 
starting  in  PLT  (1 , j , k) , where  j = 1 
for  leading  edge,  = 2 for  trailing  edge. 
PLT  corresponds  to  B(LLETE)  in  sub- 
routine WING1 . 

NAME  = An  array  that  tells  where  in  B the  con- 
trol airfoil  points  are  stored,  and  the 
number  of  elements  in  each  airfoil . The 
points  (U'i,  Zj)  for  control  airfoil  j are 
stored  starting  in  B(NAME(1,  i,  j)), 
where  i = 1 for  upper  surface  of  the  air- 
foil, i = 2 for  lower  surface  of  the  air- 
foil. The  corresponding  number  of 
elements  (twice  the  number  of  points)  is 
stored  in  NAME (2,  i,  j).  The  NAME 
array  is  generated  in  subroutine  WING1A. 


PCT  = Array  of  percentages  associated  with 
the  wing  percent  chord  lines . 


CHD  = Chord-arc  tolerance.  (See  CHD,  card  2, 
subroutine  WINGA.) 


EP  = See  EPS,  card  3,  subroutine  WINGA. 

TITLE  = Title  (alphameric). 

DAYT  = Date  (alphameric). 

NU  = Error  indicator  array:  NU(1)  is  not 

used,  on  input.  NU(2)  is  an  output  tape 
number  on  which  to  write  a message  if 
an  error  is  detected;  no  message  is 
written  if  NU(2)  < 0.  NU(3)  is  an 
error  message  limiter;  if  an  error  is 
detected,  NU(3)  = (NU(3)  - 1).  Then 
if  NU(3)  > 0 and  NU(2)  > 0,  an  error 
message  is  written. 


Output:  B = Storage  buffer  for  variable-length 

arrays . 


LGDEF  - LGDEF (2, 1)  is  set  to  .TRUE,  if  upper 
wing  percent  lines  are  successfully 
generated;  LGDEF (2, 2)  is  set  to 
.TRUE,  if  lower  wing  percent  chord 
lines  are  successfully  generated. 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


LOK  = Array  which  tells  where  in  B the  per- 
cent chord  line  arrays  are  located,  and 
the  length  of  each  percent  chord  line 
array.  Consider  LOK(i,  j).  The  upper 
wing  surface  corresponds  to  j = 1 , the 
lower  to  j = 2.  The  percent  chord  line 
array , consisting  of  a header  followed 
by  point  coordinates  (see  Appendix  D), 
starts  in  B(LOK(l,  j)).  The  number 
of  percent  chord  lines  in  the  array  is 
stored  in  LOK(2 , j).  The  total  number 
of  elements  in  the  array  is  stored  in 
LOK(3 , j). 


NU 


RICHNA 
WING2P 
BITURP 
MERR 
IDLETE  \ 
IRLEAS  ( 
IRSERV  ( 
IPACK  / 


= Error  indicator  array.  NU(1)  is  zero 
if  no  errors  are  detected.  NU(3)  may 
have  been  changed  (see  Input). 


(See  Appendix  A) 


Function  MERR  is  used  to  write  a message  "ERROR  i, 
CODE  j IN  SUBROUTINE  WING2  DURING  GEOMETRIC 
DEFINITION"  if  an  error  is  detected. 

j_  j_  Explanation 


1 0 ' 
c o 

, The  storage  buffer,  B,  is  not  large  enough  or  a 
6 0 storage  error  has  been  detected. 

8 0 > 


2 0 No  points  are  given  for  a control  airfoil  (this  error 

should  be  detected  in  a previous  subroutine) . 

3 k Error  k from  BITURP  in  interpolation  from  a 

given  control  airfoil  to  get  a percent  chord  line 
point.  The  control  airfoil  has  invalid  points. 

7 k Error  k from  RICHNA. 
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RESTRICTIONS: 

STORAGE: 


The  storage  buffer,  B,  must  have  been  initialized  by  sub 
routine  INIFBR  (Appendix  A)  or  its  equivalent. 

55010  = 1046 8 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


SUBPROGRAM 

CALLED: 

ERROR  RETURNS: 

RESTRICTIONS: 

STORAGE: 


FORTRAN  IV  Subroutine  WING2P 

To  write  wing  percent  chord  lines  on  an  output  tape. 

The  basic  wing  percent  chord  lines , computed  by  subroutine 
WING2 , consist  of  three-dimensional  points  on  the  surface  of 
a wing.  After  title  and  headings  are  written  on  each  page,  the 
points  are  written,  one  point  per  line. 

DIMENSION  W(3,  NPT,  NPCT),  TITLE (12),  DAYT(2), 
PCT(NPCT) 

CALL  WING2P  (LO,  W,  NPCT,  NPT,  TITLE,  UPLO, 

DAYT,  PCT) 

= Output  tape  number. 

= Array  on  NPCT  percent  chord  lines . 

Each  line  contains  NPT  points  (x.,  y., 

Zi>* 

= Number  of  percent  chord  lines . 

- Number  of  points  in  each  percent  chord 
line. 

= Title  (alphameric). 

= 6H  UPPER  or  6H  LOWER. 

= Date  (alphameric). 

= Array  of  percentages , corresponding 
to  the  percent  chord  lines  in  W. 

Output:  Printout  on  tape  LO. 


Input:  LO 

W 

NPCT 

NPT 

TITLE 

UPLO 

DAYT 

PCT 


None 

None 

None 

20510  = 3158 
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SUBJECT: 

PURPOSE: 

METHOD: 

USAGE: 


FORTRAN  IV  Subroutine  WINGA 


To  read  data  cards  defining  a wing  and  construct  percent 
chord  lines  cm  its  surface. 

Subroutine  WING1  is  called  to  read  data  cards  (see  attach- 
ment) that  define  the  wing.  Then  subroutine  WING2  con- 
structs three-dimensional  percent  chord  lines  that  lie  on 
the  wing  surface. 

DIMENSION  B(l) , DAT(2),  LOK(3,  9),  TITLE (2),  NU(3) 
LOGICAL  LGDEF(3,  6) 

CALL  WINGA  (B,  LI,  LO,  DAT,  LGDEF,  LOK,  LWPF, 
TITLE,  NU) 


Input: 


LI 

LO 

DAT 

NU 


Output:  B 


= Storage  buffer  for  variable  length 
arrays. 

= Input  tape  number. 

= Output  tape  number. 

= Date  (alphameric) . 

= Error  indicator  array  used  by 
lower  level  routines:  NU(1)  is 

not  used  on  input.  NU(2)  is  an 
output  tape  number  on  which  to 
write  a message  if  an  error  is 
detected;  no  message  is  written 
if  NU(2)  < 0.  NU(3)  is  an  error 
message  limiter;  if  an  error  is 
detected,  NU(3)  = (NU(3)  - 1). 
Then  if  NU(3)  > 0 and  NU(2)  > 0, 
an  error  message  is  written. 

= Storage  buffer  for  variable  length 


arrays. 

LGDEF(1, 

1) 

. TRUE,  if  upper  wing  was  re- 
quested. 

(1, 

2) 

. TRUE,  if  lower  wing  was  re- 
quested. 

(1, 

4) 

.TRUE. 

(2, 

1) 

. TRUE,  if  upper  wing  success- 
fully defined. 

(2, 

2) 

. TRUE,  if  lower  wing  success- 
fully defined. 
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SUBPROGRAMS 

CALLED: 


ERROR  RETURNS: 


(2,  4)  .TRUE,  if  WING  1 was  success- 
ful. 

LOK  = Array  that  tells  where  in  B the 

wing  percent  chord  line  arrays 
and  wing  planform  point  array 
are  located  and  the  length  of 
each  array.  Consider  LOK 
(i,  j).  The  upper  wing  percent 
chord  line  array  corresponds  to 
LOK(i , 1),  the  lower  to  LOK(i,  2); 
the  planform  point  array  corresponds 
to  LOK(i,  7).  An  array  starts  in 
B(LOK(l,  j));  the  total  number  of 
elements  in  the  array  = LOK(3,  j). 
LOK  (2,  1)  = number  of  upper 
percent  chord  lines,  LOK(2,  2)  = 
number  of  lower  percent  chord  lines , 
and  LOK(2,  7)  = number  of  control 
airfoils  = number  of  pairs  of  planform 
points  (leading  edge,  trailing  edge). 

LWPF  = The  location  of  LWPF  is  the 

same  as  that  of  LOK(l,  7). 

(LWPF  need  not  have  been  an 
argument. ) 

TITLE  = Wing  title  (alphameric). 

NU  = Error  indicator  array.  NU(1)  is 

zero  if  no  error  is  detected. 

NU  (3)  may  have  been  changed 
(see  INPUT,  above). 

WING1 

WING2 

IPACK  (See  Appendix  A ) 

NU(1)  ^ 0 if  an  error  occurred  in  WING1  or  WING2. 

LGDEF(2,  4)  will  be  .FALSE,  if  the  error  was  in  WING1, 

.TRUE,  if  in  WING2. 
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RESTRICTIONS:  The  storage  buffer , B,  must  have  been  initialized  by  sub- 

routine INTBFR  (Appendix  A)  or  its  equivalent.  LGDEF(i,  j), 
i = 1,  3;  j = 1,  2,  4 must  have  been  set  to  .FALSE. 


STORAGE:  153,  = 231 

10  o 
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ATTACHMENT: 


Wing  Input  Data  Format 


Card  1 
Card  2 


Card  3 


Column  Code 

1-72  TITLE 

I- 10  PNLE 

II- 20  PNTE 

21-30  AFN 

31-40  PLN 

41-50  WUL 


51-60  CHD 


Explanation 
Any  desired  title. 

Number  of  corner  or  break  points 
defining  the  planform  leading  edge. 

Number  of  corner  or  break  points 
defining  the  planform  trailing  edge. 

Number  of  planform  control  airfoils. 
AFN  > 2 . including  the  wing  tip 
airfoil. 

Number  of  constant  percent  chord 
lines.  PLN  > 1. 

= 1 . only  the  upper  wing  surface  is 
defined. 

= 2 . only  the  lower  wing  surface  is 
defined. 

= 0.  both  upper  and  lower  wing  sur- 
faces are  defined. 

Dimensional  tolerance  for  the  density 
of  points  interpolated  (between  control 
airfoils)  on  percent  chord  lines . If 
CHD  < 0. , or  if  AFN  < 4. , no  addi- 
tional points  are  generated.  Do  not 
specify  CHD  > 0.  unless  every  basic 
percent  chord  line  has  at  least  four 
distinct  points. 


1-10  PCODE  Code  that  controls  the  type  of  three- 

dimensional  interpolation  to  be  used 
for  generating  additional  points  on  per- 
cent chord  lines.  PCODE  is  not  effec- 
tively used  on  any  basic  percent  chord 
line  of  less  than  four  distinct  points 
or  if  CHD  < 0, , For  a more  detailed 
explanation  of  PCODE , see  KD  in  sub- 
routine RICH3A. 
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Cards  4 


Column  Code 


11-20  ACODE 


21-30  EPS 


1-10  ^ 

11-20  Y! 
21-30  X2 


Explanation 

= 0. , enriching  (interpolation  of  addi- 
tional points)  is  done  on  points  pro- 
jected into  a plane  which  "best"  fits 
the  basic  percent  chord  line  points. 
Enriched  percent  lines  can  appear 
curved  between  control  airfoils  in 
the  planview. 

= 1 . , enriching  is  done  on  points  pro- 
jected into  a plane  normal  to  the  X-Y 
plane  through  the  percent  chord  line 
ends.  Resulting  percent  lines  appear 
as  straight  lines  between  control  air- 
foils in  the  planview. 

= 2. , enriching  is  done  as  for  PCODE 
= 1 . but  resultant  percent  lines  can 
appear  curved  between  control  air- 
foils in  the  planview. 


NOTE:  If  PCODE  = 1.  or  2. , and  the  per- 
cent chord  line  lies  roughly  in  a 
horizontal  plane  (e.g. , leading  or 
trailing  edge),  enriching  may 
not  add  points  to  the  basic  per- 
cent line. 

= 1 . , linear  interpolation  is  used  be- 
tween points  on  control  airfoils  to 
find  points  on  the  basic  percent 
chord  lines . 

= 2. , biquadratic  interpolation  is  used. 

A tolerance  used  to  eliminate  coincident 
percent  chord  line  points.  The  basic 
percent  chord  lines  consist  only  of  inter- 
sections of  percent  chord  lines  with  con- 
trol airfoils . If  two  of  these  points  are 
closer  together  than  EPS , one  is  elimina- 
ted. If  EPS  < 0. , a value  of  0.01  is  used. 

Array  of  points  defining  the  planform 
leading  edge,  arranged  in  order  from 
inboard  to  outboard.  There  must  be 
PNLE  point  pairs,  three  coordinate 
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Cards  5 


Cards  6 


Column  Code 


Explanation 


31-40  Y2 

41-50  X3 

51-60  Yg 

i-io  xx 

11-20  Y 

21-30  X2 

31-40  Y0 

41-50  X3 

51-60  Y 

o 


pairs  per  card.  Note  that  the  leading 
edge  may  be  modified  by  the  program , 
depending  on  the  placement  of  control 
airfoils  on  the  planform. 

Similar  to  cards  4 , but  for  the  trailing 
edge. 


These  cards , one  for  each  control 
airfoil,  give  the  airfoil  location  on  the 
planform  and  the  number  of  points  on 
the  upper  and  lower  parts  of  the  control 
airfoil.  Each  card  6 is  followed  by  one 
or  more  cards  7 and  8 (unless  the  pre- 
vious airfoil  is  to  be  repeated) . 


Code  to  indicate  how  the  control  airfoil 
1-10  AFK  is  oriented  on  the  planform.  See 

sketches  below. 


Two  of  the  three  quantities  /9  , y , yT 
must  be  given  to  specify  the  control  air- 
foil location.  AFK  indicates  which  two 
quantities  are  to  be  used. 


11-20  BETA  The  angle  & , positive  if  as  shown  on 

the  sketches.  BETA  is  ignored  if 
AFK  = 3., 


21-30  Y ^ Y-ooordlnate  at  which  the  control 

airfoil  intersects  the  leading  edge,  Y^ 
is  ignored  if  AFK  = 2 . . 
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Cards  7 


Cards  8 


Column  Code 
31-40  ^rp 

41-50  AFNU 


51-60  AFNL 


I- 10  ux 

II- 20  Vx 

21-30  U2 
31-40  V2 
41-50  Ug 
51-60  V3 

I- 10  U 

II- 20  V 

21-30  U2 
31-40  V£ 
41-50  U 

u 

51-60  V 

o 


Explanation 

Y-p , Y-coordinate  at  which  the  control 
airfoil  intersects  the  trailing  edge.  Yrp 
is  ignored  if  AFK  = 1 . . 

Number  of  points  on  the  control  airfoil 
upper  surface.  The  coordinates  of  these 
points  (cards  7)  follow  this  card.  However, 
if  AFNU  = 0 . , then  the  previous  airfoil 
upper  surface  points  are  used  and  a card  7 
must  not  follow.  If  WUL  = 2.  (upper 
wing  not  defined),  then  AFNU  is  ignored, 
and  a card  7 must  not  follow. 

Number  of  points  on  the  control  airfoil 
lower  surface.-  The  coordinates  of  these 
points  (cards  8)  follow  cards  7 (or  card  6 
if  no  card  7 is  used).  However,  if  AFNL  = 

0. , then  the  previous  airfoil  lower  surface 
points  are  used  and  a card  8 must  not  follow. 
If  WUL  = 1 . (lower  wing  not  defined) , then 
AFNL  is  ignored,  and  a card  8 must  not 
follow.  Note  that  the  leading  and  trailing 
edge  points  must  be  included , even  if  they 
repeat  those  of  the  airfoil  upper  surface. 


Array  of  points  (Uj,  Vj)  on  the  control 
airfoil  upper  surface,  in  increasing 
order  from  leading  edge  to  trailing  edge . 
The  points  will  later  be  scaled  to  fit  the 
planf orm . This  card  must  not  follow  a 
card  6 if  WUL  = 2 . or  if  AFNU  = 0. . 


Similar  to  card  7 , but  apply  to  the 
control  airfoil  lower  surface  points. 
Cards  8 follow  cards  7 (or  a card  6 
if  a card  7 is  not  used) . A card  8 
must  not  be  used  if  WUL  = 1 . or  if 
AFNL  = 0.  . 
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Column  Code 


Explanation 


Cards  9 


I- 10  P 

II- 20  P2 


51-60  Pg 


Array  of  constant  percent  chord  values 
corresponding  to  the  spanwise  panel 
edges . For  example , if  percent  chord 
lines  0,  20,  50,  100  are  desired,  then 
Pi  = 0. , P2  = 20. , Pg  = 50.  , and  P^  = 
100.. 
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SUBJECT: 

PURPOSE: 


METHOD: 

f 


FORTRAN  IV  Subroutine  WLDM 

To  compute  the  coefficients  of  lift,  drag,  and  pitching 
moment  of  the  wing  and  the  spanwise  distribution  of  the 
coefficients  of  lift  and  drag. 

The  force  normal  to  a panel  is  given  as  the  product  of  dy- 
namic pressure,  surface  pressure  coefficient,  and  panel  are: 


Resolving  into  the  components  normal  and  parallel  to  the 
free -stream  direction  yields 

Lj  = - Fj  • cos 

Di  - Fi  • ni 

where  n^  is  the  component  of  velocity  normal  to  the  x-axis 
and  0 1 is  the  angle  between  the  plane  of  the  panel  and  a 
plane  parallel  to  the  x-y  plane. 

The  moment  of  force  with  respect  to  a point  (x,  0,  z)  gives 
the  pitching  moment. 

Mj  = - Lj  (24  - x)  + (zt  - z) 

where  x and  z are  the  x and  z coordinates  of  the  panel 
centroids. 

The  coefficients  of  lift,  drag, 
wing  are  given  by 

CL  q • Sw 

c L_ 

D q • % 

Cm 

where  is  the  wing  reference  area,  and  NM  is  the  num- 
ber of  wing  panels. 

The  spanwise  distribution  of  the  coefficients  of  lift  and  drag 
is  given  by 


and  moment  for  the  entire 
NM 


NM 

E 

i=l 

NM 

E 

i=l 


Di 


M, 
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USAGE: 


NROW 

o 

tr* 

Lj, 

II 

to 

co  H 

3 

E 

i=l 

NROW 

Coj  q • % 

E 

i=l 

Li 

Dj  , j = 1 , . . . . , NCOL 


where  NROW  is  the  number  of  panels  in  a chordwise  column, 
and  NCOL  is  the  number  of  chordwise  columns. 


CALL  WLDM  (NM,  NROW,  XP,  ZP,  RFAREA , AREA, 

XBAR,  ZBAR,  ALPHAM,  THETAM,  CPM, 
SCL,  SCD,  CL,  CD,  CM) 

DIMENSION  AREA(NM) , XBAR(NM),  ZBAR(NM) , 

ALPHAM(NM),  THETAM  (NM) , CPM(NM), 
SCL(NCOL) , SCD(NCOL) 


Input:  NM 

NROW 

XP 

ZP 

RFAREA 

AREA 

XBAR 

ZBAR 


Number  of  wing  panels. 

Number  of  panels  in  a steamwise  column. 

x-coordinate  of  the  point  about  which 
the  pitching  moments  are  to  be  calculated. 

z -coordinate  of  the  point  about  which 
the  pitching  moments  are  to  be  calculated. 

Wing  reference  area. 

Array  of  wing  panel  areas. 

Array  of  wing  panel  centroid  x- 
coordinates. 

Array  of  wing  panel  centroid  z- 
coordinates. 


ALPHAM  = Array  of  velocity  components  normal 
to  the  x-axis . 


THETAM  = Array  of  angles  between  the  plane  of 
the  panel  and  a plane  parallel  to  the 
x-y  plane. 


Output:  SCL 
SCD 
CL 


= Array  of  spanwise  lift  coefficients. 

= Array  of  spanwise  drag  coefficients. 
- Coefficient  of  lift, 
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CD 

CM 


=.  Coefficient  of  drag. 

= Coefficient  of  pitching  moment. 


SUBPROGRAM 

CALLED: 

COS 

ERROR  RETURNS: 

None 

RESTRICTIONS: 

None 

STORAGE: 

18710 

The  Boeing  Company 
Commercial  Airplane  Division 
Renton,  Washington 
August  1967 
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5.  APPENDIXES 


5 

SUBJECT: 
PURPOSE: 

METHOD: 


.1  Appendix  A — Dynamic  Storage  Allocation  Package 
Dynamic  Storage  Allocation  in  FORTRAN 

To  provide  a means  for  allocating,  using,  and  releasing 
blocks  of  storage  on  a dynamic  basis  during  execution  of 
FORTRAN  programs. 

The  buffer  format  is  illustrated  in  figure  1,  page  421. 

Each  buffer  is  divided  into  a (variable)  number  of  arrays, 
some  of  which  may  be  full  while  others  are  available  to 
be  filled.  Initially  the  buffer  contains  only  one  array;  this 
is  empty.  The  first  word  of  each  buffer  is  a “header” 
which  contains  the  total  length  of  the  buffer . 

Each  array  is  preceded  by  a “secret”  header  of  two  codes, 
illustrated  in  figure  1 , which  contains  the  following 
information: 

1)  Whether  the  array  is  full  or  empty 

2)  The  length  of  the  array 

3)  The  relative  address  of  the  first  word  of  the  buffer 

4)  The  absolute  address  of  the  array  name  (if  the  array 
is  full). 

In  using  the  buffer,  a programmer  can  ignore  the  headers, 
because  the  subroutines  he  uses  will  accommodate  this 
bookkeeping.  These  routines  will  also  indicate  situations 
such  as  an  overflowing  buffer  or  reference  to  an  array  in 
the  buffer  that  is  not  a legitimate  array. 

The  subroutines  involved  in  the  scheme  may  be  divided 
into  three  classes: 

1)  Basic  subprograms 

2)  Primitive  subprograms 

3)  User’s  subprograms 

The  first  two  of  these  classes  are  an  integral  part  of  the 
automatic  storage  scheme  and  are  discussed  in  more  detail 
below.  Their  structure  is  illustrated  in  figure  2,  page 422. 
The  user’s  subprograms  are  provided  by  the  authors  of  the 
computing  system  and  will  call  the  basic  subprograms  into 
execution.  The  user  should  never  have  to  call  a primitive 
subprogram  directly.  When  setting  up  an  array  in  the 
buffer,  either  by  use  of  the  function  IADARY  or  by  reserving 
space  with  the  function  ERSERV,  the  user  will  obtain  a 
“name”  for  that  array  stored  as  a FORTRAN  integer  in  a 
cell  that  may  be  called  NAME . This  name  is  now  uniquely 
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associated  with  the  array.  If  the  buffer  is  called  BUFFER, 
the  first  word  of  the  array  will  always  be  BUFFER(NAME) 
and  the  ith  word  will  be  BUFFER(NAME  +1-1),  regardless 
of  any  shuffling  that  may  take  place  automatically  in  the 
buffer.  However,  because  data  shuffling  may  occur,  the 
array  must  always  be  referred  to  by  the  same  NAME,  which 
will  be  kept  updated  automatically.  Obviously,  each  array 
can  have  only  one  name. 


USAGE: 

Basic 

Subprograms:  The  following  seven  subprograms  form  the  basic  set  which 

can  be  called  directly  by  the  user.  With  the  exception  of 
INIBFR  and  CLEAR  they  are  coded  in  FORTRAN. 

1)  Subroutine  CLEAR  (BFRA,  BFRB,  . . .) 

To  reinitialize  and  make  available  for  reuse  any 
number  of  buffers  BFRA,  BFRB,  . . . , etc. 

2)  Subroutine  INIBFR  (BFRA,  NA,  BFRB,  NB,  ...) 

To  initialize  any  number  of  buffers,  BFRA,  etc. , of 
length  NA,  etc. , words.  This  routine  must  be  called 
before  a buffer  can  be  used. 

3)  Function  IADARY  (ARRAY,  N,  BFR,  NAME) 

To  place  an  array,  ARRAY,  of  length  N words,  into 
the  buffer,  BFR,  and  to  assign  to  it  the  name,  NAME. 
The  function  value  will  be  the  same  as  NAME  unless 
some  error  or  misuse  is  detected,  in  which  case  it 
will  be  negative.  To  circumvent  the  oddities  of  the 
FORTRAN  subscripting,  procedure  IADARY  should 
be  used  thus: 

NAME  = IADARY  (ARRAY,  N,  BFR,  NAME) 

4)  Function  IDLETE  (BFR(NAME)) 

To  delete  (i.e. , make  available  for  reuse)  an  array 
in  the  buffer,  BFR,  whose  name  is  NAME.  The  func- 
tion value  will  be  zero  unless  some  error  is  detected, 
when  delection  will  not  occur. 

5)  Function  IPACK  (BFR) 

The  pack  a buffer,  BFR,  by  moving  all  full  arrays  to 
the  beginning  of  the  buffer  and  condensing  all  the  empty 
arrays  into  one  at  the  end.  The  function  value  will  be 
equal  to  the  length  of  the  final  empty  array  unless  an 
error  is  detected,  when  it  will  be  negative  and  packing 
will  not  occur. 
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6)  Function  IRLEAS  (BFR(NAME),  N) 

To  release  all  cells  beyond  cell  N in  an  array  in  the 
buffer,  BFR,  whose  name  is  NAME;  i.e.  , BFR(NAME) 

- BFR(NAME  + N-l)  are  retained  but  BFR(NAME  + N) 

- the  end  of  the  array  are  made  available  for  reuse. 
The  function  value  will  be  zero  unless  some  error  is 
detected,  when  release  will  not  occur. 

7)  Function  IRSERV  (N,  BFR,  NAME) 

To  reserve  an  array  of  N words  in  the  buffer,  BFR, 
and  to  assign  to  it  the  name,  NAME.  The  comments 
under  IADARY  concerning  function  value  apply  also 
to  IRSERV. 

Primitive 

Subprograms:  For  completeness,  the  eight  primitive  subprograms  of  the 

scheme  are  briefly  described  here.  They  are  all  coded 
in  assembly  language. 

1)  Function  ARFRE  (NAME) 

To  set  up  the  first  code  word  of  an  empty  array. 
FORTRAN  IV  version  has  deck  name  ARFREE. 

2)  Function  ARFUL  (NAME) 

To  set  up  the  first  code  word  of  a full  array. 

3)  Function  ARSEC  (N,  NAME) 

To  set  up  the  second  code  word  of  an  array. 

FORTRAN  IV  version  has  deck  name  ARSECR. 

4)  Function  FOOL  (I) 

To  store  a fixed  point  variable  in  a floating  point  loca- 
tion. The  FORTRAN  IV  version  has  deck  name  UFOOL 
and  two  entry  points,  FOOL  and  IFOOL. 

5)  Function  IBFR  (A) 

To  locate  the  first  word  of  a buffer  relative  to  the 
first  word  of  an  array. 

6)  Function  ICODE  (A) 

To  determine  whether  an  array  is  full  or  empty. 

7)  Function  LENG  (A) 

To  determine  the  length  of  an  array 

S)  Subroutine  UPDATE  (A) 

To  update  the  contents  of  an  array  name  following  data 
shuffling  in  the  buffer, 
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EXAMPLE: 


FLOWCHARTS: 


SUBPROGRAM 

CALLED: 

EQUIPMENT: 

STORAGE: 


An  example  is  given  in  figure  3,  page  423,  of  a program  which 
reads  in  an  (fx  m)  and  an  (m  x n)  matrix,  multiplies  them  to- 
gether and  prints  out  the  (fx  n)  resultant.  The  input  arrays 
are  then  deleted  from  the  buffer. 

Flowcharts  of  all  the  primitive  and  basic  subprograms  of 
the  dynamic  storage  package  are  included.  These  flow- 
charts are  for  the  FORTRAN  II  versions.  The  FORTRAN 
IV  subprograms  differ  slightly  because  of  the  forward 
storage  of  arrays  and  full  word  instead  of  decrement  for- 
mat of  fixed-point  variables. 


None 

IBM  7094  H 


FORTRAN  n FORTRAN  IV 


Subprogram 

Octal 

Decimal 

Octal 

Decimal 

ARFREE 

10 

8 

7 

7 

ARFUL 

10 

8 

7 

7 

ARSECR 

10 

8 

11 

9 

CLEAR 

25 

21 

22 

18 

IADARY 

273 

187 

255 

173 

IBFR 

24 

20 

23 

19 

ICODE 

23 

19 

22 

18 

IDLETE 

65 

53 

62 

50 

INIBFR 

33 

27 

33 

27 

IPACK 

316 

206 

266 

182 

IRLEAS 

173 

123 

165 

117 

IRSERV 

42 

34 

45 

37 

LENG 

4 

4 

5 

5 

UFOOL 

2 

2 

2 

2 

UPDATE 

14 

12 

13 

11 

TOTALS 

1334 

732 

1252 

682 
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NOTES 


BFR  (1) 

4 

0 

7 

N 

2 

P1 

0 

7 

4 

3 

0 

Mj 

0 

ANAMEj 

4 

• 

• 

• 

Mj+Kj-1 

Array  #1 

1 

Kj-2 

Pi 

0 

7 

Ki 

Ki-1 

0 

Mj 

0 

ANAMEj 

Kj 

Array  *i 

V2 

pi 

0 

7 

KJ 

VI 

Kj 

♦ 

• 

• 

• 

• 

t 

• 

• 

0 

Mj 

0 

ANAMEj 

Array  #j  (last) 

N = Kj+Mj-1 


For  a full  array: 

Pl  = 7 

ANAME:  is  the  absolute  address 
of  the  array  name,  NAMEj. 
The  word  NAMEj  contains 
Kj  as  a decrement  integer. 


For  an  empty  array: 

Pi=0 

ANAMEj  is  irrelevant. 


in  gt/iiciui, 

M;  is  the  length  of  the  ith 
array. 

Kj  is  the  first  word  of  the 
array  relative  to  the 
beginning  of  the  buffer. 

N is  the  total  length  of  the 
buffer. 

The  first  code  word  of  the 
buffer  and  of  the  arrays  are 
illegal  both  as  FORTRAN  integers 
and  as  floating  point  numbers. 


FIGURE  1 BUFFER  FORMAT 
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FIGURE  2 STRUCTURE  OF  THE  DYNAMIC  STORAGE  SCHEME 


422 


DIMENSION  BFR(IOOO) 

C 

CALL  INIBFR  (BFR,1000) 

C 

READ  INL 

READ  INPUT  TAPE  5,1,L,M,N 
1 FORMAT  (6G) 


C 

NAMl=IRSERV(L*M,BFR,NAMl) 

NAM2=IRSERV(M*N,BFR,NAM2) 

IJ=IRSERV(L*N,BFR,NAM3)-1 


K=NAM1+L*M-1 

READ  INPUT  TAPE  5,1,(BFR(I),I=NAM1,K) 
K=NAM2+M*N-1 

READ  INPUT  TAPE  5,1,(BFR(1),I=NAM2,K) 

DO  20  >L,N 
DO  20  l-l.L 
IK-NAM1+I-1 
• KJ--NAM2+(J-1)*M 


DO  10  K=1,M 
B=B+BFR(IKfBFR(KJ) 
. IK=IK+L 
10  KJ=KJ+1 


IJ=IJ+1 

20  BFR(IJ>B 
C 

CALL  IDLETE(BFR(NAM1)) 

CALL  IDLETE(BFR(NAM2)) 

C 

WRITE  OUTPUT  TAPE  6,2,(BFR(|),|=NAM3,IJ) 
2 FORMAT  (G20.6) 

STOP 

END(  1,1, 0,0, 0,0, 0,1, 0,1, 0,0, 0,0,0) 


FIGURE  3 EXAMPLE  FOR  DYNAMIC  STORAGE 
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ARSECR 


426 


CLEAR 


427 


10 


Set  function 
value  = address 
of  this  array 


IADARY 


428 


29 


43 


IDLETE 


o 

RETURN 


431 


INIBFR 


432 


I PACK 


433 


IRLEAS 


434 


LENG 


{> 

RETURN 


436 


UFOOL 


ENTRY 


Put  argument 
in 

accumulator 


ft 


RETURN 


437 


UPDATE 
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5. 2 Appendix  B — Matrix  Inversion  Package 


SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutine  SINVRT  and  MAP  Subroutine  INV4S 

To  invert  an  n-by-n  matrix  and  compute  its  determinant. 

1.  Before  the  inversion  process  starts,  the  matrix  is  scaled 
so  that  the  element  of  largest  magnitude  is  greater  than 
or  equal  to  1/4  and  less  than  1/2.  This  is  accomplished 
through  fixed-point  addition  or  subtraction  in  the  char- 
acteristic, which  avoids  the  introduction  of  round-off 
during  scaling. 

2.  A theorem  of  matrix  algebra  states  that  for  any  non- 
singular matrix  A,  there  exist  elementary  transforma- 
tions R and  S such  that: 

RAS  = I (1) 

where  I is  the  identity  matrix.  Because  R and  S are 
elementary  transformations,  they  are  necessarily  non- 
singular  which  permits  taking  the  inverse  of  both  sides 
of  equation  (1). 

S"1  A"1  R"1  = I 
Then  solving  for  A-1  gives, 

A-1  = SIR  = SR 

The  transformations  S and  R are  determined  by  re- 
ducing A to  the  identity  matrix.  In  INV4S  R consists 
of  row  interchanges  and  arithmetic  operations  on  rows, 
while  S consists  solely  of  column  interchanges. 

3.  The  inversion  is  performed  in  single  precision,  and  it 
leaves  a single -precision  inverse  and  determinant. 

Normal  7094  single -precision  floating-point  restric- 
tions apply. 

4.  The  inversion  of  a sparse  matrix  is  speeded  up  by  a 
checking  feature  that  can  sense  a zero  reduction  factor 
and  bypass  a row  reduction. 

5.  At  the  start  of  each  reduction  stage,  rows  and  columns 
are  interchanged  to  select  the  element  of  largest  magni- 
tude from  the  remaining  submatrix  and  place  it  in  the 
pivotal  position. 
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USAGE: 


SUBPROGRAMS 

CALLED: 


CALL  SINVRT  (A,  K,  N,  IRR1,  IRR2,  SCALE,  DET, 
NDETXP) 


A 


= Matrix  to  be  inverted. 


K = Row  DIMENSION  statement  entry  for  A. 

N = Number  of  rows  (columns)  in  matrix  (de- 

crement integer). 


IRR1 

IRR2 

SCALE 

DET 


= Error  code  from  INV4S  (decrement  integer). 

= Error  code  from  INV4S  (decrement  integer). 

= Error  cell  from  INV4S. 

= Mantissa  part  of  determinant  (single  pre- 
cision): 

(1.  < |DET|  < 10.) 


NDETXP 


determinant 


= Exponent  part  of  determinant  (decrement 
integer): 

-(217  - 1)  < NDETXP  < (217  -1) 


= DET  x lo(NDETXP) 


CALL  INV4S  (A,  N,  IRR1,  IRR2,  SCALE,  DET,  NDETXP) 

A = Location  of  (1,  1)  matrix  element. 

N = Number  of  rows  (columns)  in  matrix 

(address  integer). 


IRR1 

IRR2 

SCALE 

DET 


NDETXP 


determinant 


= Error  code  1 (address  integer) . 

= Error  code  2 (address  integer) . 

= Error  cell. 

= Mantissa  part  of  determinant  (single  pre- 
cision): 

(1.  < IDET|  < 10.) 


= Exponent  part  of  determinant: 

_(235  - 1)  < NDETXP  < (235  - 1) 

(NDETXP) 

= DET  x 10  ’ 


A.  SINVRT  calls  INV4S 

B.  INV4S  None 
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ERROR  RETURNS:  Error  codes  for  both  subroutines: 


RESTRICTIONS: 


IRR1 


= 0 inversion  successful 

= 1 overflow  occurred 

= 2 matrix  is  singular 

= 3 scaled  inverse  cannot  be  rescaled 

without  causing  overflow 

= 4 rows  and  columns  cannot  be  rearranged 

= 10  + 1 error  code  3 occurred  subsequent  to 
error  code  1 

= 20  + 1 error  code  4 occurred  subsequent  to 
error  code  1 


IRR2 


= Rank  if  IRR1  = 2 

= Reduction  stage  during  which  overflow  occurred 
if  IRR1  = 1 

= 0 for  all  other  values  of  IRR1 


SCALE  = Scale  factor  if  IRR1  = 3 

= 0 for  all  other  values  of  IRR1 


If  IRR1  = 1 or  2,  then  the  matrix  will  be  rearranged  and 
rescaled  as  though  the  inversion  were  successful,  and  the 
determinant  will  be  set  to  zero. 


A.  These  must  apply  to  the  two  routines: 

1.  They  must  be  used  on  the  IBM  7094  only. 

2.  The  matrix  is  always  destroyed  during  the  inver- 
sion process,  since  the  inverse  is  stored  over  the 
matrix. 

3.  Because  of  the  internal  scaling  process,  some 
matrix  elements  will  be  set  to  zero  if  the  ratio  of 
the  largest  to  smallest  magnitudes  exceeds  1033. 

4.  If  underflow  occurs,  a normal  zero  is  stored  for 
the  answer.  Overflow  always  results  in  an  error 
return. 

5.  The  machine  is  left  in  single  tag  mode  and  floating 
point  trap  mode  upon  return  to  the  calling  program. 

B.  These  apply  to  SINVRT  only: 

1.  The  inversion  is  performed  by  INV4S. 

2.  The  matrix  to  be  inverted  must  be  stored  in  nor- 
mal FORTRAN  IV  order  and  in  single  precision. 
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STORAGE: 


TIMING: 


CHECKOUT: 


2 

3.  During  the  inversion  process  a total  of  n + 2n  + 3 
locations  must  be  available  starting  at  the  matrix 
(1,  1)  element  and  ending  at  a lower  core  location. 

C.  This  applies  to  INV4S  only: 

o 

The  total  storage  required  is  n + 2n  + 3. 

A.  SINVRT  315  = 473c 

10  8 

B.  INV4S  489  = 75 1 

10  8 

For  INV4S  and  SINVRT,  the  time  in  seconds  to  invert  a 
matrix  of  order  n is  given  by: 

Time=  4.0  x 10~5  x n3  seconds 


All  of  the  routines  were  tested  on  various -order  Hilbert 
matrices  and  their  inverses.  Below  is  a table  of  the  results. 


Hilbert 

Minimum  Number  of  Signifi- 

Matrix 

cant  Figures  in  Inverse 

Order 

(INV4S/SINVRT) 

2 

8 

3 

7 

4 

5 

5 

4 

6 

3 

Also  tested  was  the  PEI  matrix  (Comm.  A.C.M.  V.5,  1962 
page  508)  with  various  diagonal  terms  and  various  orders. 
All  input  was  single  precision. 

Minimum  Number  of  Signifi- 

Order of 

Diagonal 

cant  Figures  in  Inverse 

PEI  Matrix 

Term 

(SINVRT) 

40 

1.001 

5 

60 

1.001 

6 

65 

1.00001 

3 

100 

1.001 

5 

100 

1.0001 

4 

100 

1.00001 

3 

100 

1.000001 

2 

100 

1.0000001 

2 

100 

1.5 

7 

100 

1000. 

7 
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RECOMMENDED 

USAGE: 


Order  of  Diagonal 

PEI  Matrix  Term 


Minimum  Number  of  Signifi- 
cant Figures  in  Inverse 
(SINVRT) 


130  1000. 

130  1000. 


6 

6 


Below  is  a portion  of  a FORTRAN  IV  program  which  uses 
SINVRT  acceptably. 

DIMENSION  A(60,  60),  B(123),  D(3723) 
EQUIVALENCE  (A,  C),  (B,  C(3601)) 


• 

READ  (5,8000)  N,  ((A(I,J),  J=l,  N),  1=1,  N) 

CALL  SINVRT  (A,  60,  N,  IRR1,  IRR2,  SCALE,  DET, 
NDETXP) 

IF  (IRR1)  6000,20,6000 


20 


6000  WRITE  (6,  9000)IRR1,  IRR2,  SCALE 
CALL  EXIT 

8000  FORMAT  (I10/(7F10. 0)) 

9000  FORMAT  (1H1.5X,  18H  ERROR  CODE  1 = 15,  14H 
ERROR  CODE  2=15,  14H  SCALE  FACTOR 
E16.8) 

The  array  C has  N2  + 2N  + 3 = 3723  cells  to  ensure  suffi- 
cient core  to  invert  A.  An  extra  123  locations  are  then 
available  in  B for  use  at  other  times. 
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5.3  Appendix  C — Differential  Equation  Solver  Package 


SUBJECT: 

PURPOSE: 

METHOD: 


FORTRAN  IV  Subroutines  DED,  DEDIS,  DEI,  DES 

To  solve  a set  of  N first-order  ordinary  differential 
equations  by  the  Adams- Moulton  predictor-corrector 
method. 

The  differential  equations  must  be  in  the  form: 

y’i = fi  *v  y2,  • • • • yn> 


y*2  ~ ^2  yp  y2*  • • •»  yn) 


y i yp  3^2*  * * • * yp  • • •*  yn) 


y'n  = fn  (t-  yl-  y2 V 

t is  the  independent  variable  and  y^,  y2»  . . . y are 
the  dependent  variables  that  must  be  determined  tor  a 
given  range  of  t . 

A description  of  this  method  follows : 

1.  The  initial  conditions  for  t ,y-,  y„ yn  must 

be  given  as  well  as  an  initial  dependent  variable 
increment  h . Backward  integration  may  be 
performed  by  using  a negative  h . 

2.  Each  differential  equation  requires  four  points 
before  the  predictor-corrector  equations  may  be 
applied.  The  first  three  integrations  are  performed 
by  the  Runge-Kutta  method,  and  the  initial  conditions 
give  the  required  starting  points  for  the  predictor- 
corrector  formulas.  Each  time  the  step  size  is 
altered,  it  is  necessary  to  obtain  new  starting  points 
using  Runge-Kutta  integration. 

3.  Once  four  points  are  determined,  the  integration  is 
performed  from  point  n to  n + 1 along  the  curve 
using  equation  3.  a to  predict  and  3.b  to  correct. 

Let  h be  the  independent  variable  increment: 
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USAGE: 


a-  y£i+l  = V + l4<55fl,n-5Mi.I1-1 


+ 37f. 


i,  n - 2 " 9 fi,  n - 3* 
”•  yl<f»+l  = )'i,n  + |l<Mi,n+l+19£i,„ 


- 5f 


i,n  - 1 i,n  - 2* 

(p)  and  (c)  represent  predicted  and  corrected  values 
respectively.  y|»  + x and  y<^  + x are  tested.  It 

the  test  is  satisfied  so  that  it  is  not  required  to 
change  h,  the  derivatives  7\n+1  are  calculated 
from  the  differential  equations  e 


More  then  one  system  of  differential  equations  may  be 
solved  in  a given  FORTRAN  program.  Let  N be  the 
maximum  number  of  differential  equations  required  to 
solve  in  a FORTRAN  program.  The  following  must  be 
considered  in  using  the  routines. 


1.  A FORTRAN  floating  array  of  12A  + 9 storage  cells 
must  be  reserved  in  a dimension  statement.  This 
block  shall  be  referred  to  as  T. 

2.  Dealing  with  a particular  system  of  differential  equa- 
tions , the  number  of  equations  must  be  stored  in  two 
FORTRAN  fixed  variable  locations.  These  locations 
will  be  referred  to  as  NUM  and  NUM1. 

3.  An  equivalence  statement  giving  T(l)  and  NUM1  the 
same  working  location  must  be  written. 

4.  There  are  certain  parameters  which  are  input  to  the 
differential  equation  routine.  The  following  param- 
eters are  used: 


fi  The  fractional  part  to  decrease  the  interval  h 
if  it  needs  to  be  reduced.  Normally,  set 
= 0.5  and  it  must  be  in  the  range  0 < fi  < l. 

A A number  used  in  determining  the  relative 
error  between  the  predicted  and  corrected 
values.  Normally,  A = 1. 

hmin  The  minimum  increment  of  the  independent 
variable.  This  value  must  not  be  negative. 
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^max  T*ie  maximum  allowable  increment  of  the 
independent  variable.  This  value  must  not 
be  negative. 

M Ratio  between  upper  bound  and  lower  bound 
relative  error.  Normally,  give  it  the  value 
1,000. 

E Allowable  relative  error  between  the  predicted 
and  corrected  value.  A representative  value 
is  10'6. 

5.  The  following  FORTRAN  locations  must  be  initialized 
with  the  indicated  quantities  prior  to  entering  the  dif- 
ferential equation  solving  routines. 

FORTRAN  location 

NUM,  NUM1  Number  of  differential  equations 

that  must  be  solved. 

T(12*NUM)  Initial  value  of  1st  dependent 

variable. 

T(12*NUM-1)  Initial  value  of  2nd  variable. 


T(12*NUM-NUM+1) 

Initial  value  of  last  dependent 
variable. 

T(12*NUM+1) 

Initial  increment  of  independent 
variable. 

T(12*NUM+2) 

Initial  value  of  independent  variable. 

T(12*NUM+4) 

/3  as  defined  in  4. 

T(12*NUM+5) 

h . 
mm 

T(12*NUM+6) 

h 

max 

T(12*NUM+7) 

A 

T(12*NUM+8) 

M 

T(12*NUM+9) 

E 
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6.  A block  In  the  program  or  a subprogram  must  be  made 
to  calculate  the  derivatives.  These  must  be  calculated 
in  terms  of  T block  locations  since  the  differential 
equation  subprogram  links  to  this  block  to  compute  the 
derivatives  when  required.  The  coding  of  the  deriva- 
tive calculations  may  be  simplified  by  equivalence 
statements  if  the  number  of  differential  equations  is 
invariant. 


FORTRAN  name 

T(11*NUM)  First  derivative  y'^ 

T(11*NUM-1)  Second  derivative  y*g 

T(11*NUM-NUM+1)  Last  derivative  y' 

7.  There  are  three  linkages  to  the  differential  equation- 
solving routine,  DEDIS,  by  CALL  statements.  They 
are  given  the  names  DES,  DEI,  and  DED. 

a.  DES  Used  once  at  the  beginning  to  set  up  the 

routine  for  integration  of  a given  set  of 
differential  equations.  The  statement  is 
CALL  DES(NUM1,  IND,  NTEST). 

b.  DEI  Linked  to  the  required  number  of  times 

to  integrate  all  yj  from  tinitial  to  tf^i. 
The  CALL  statement  is  CALL  DEI(NUM, 
IND,  NTEST). 

c.  DED  The  statement  is  CALL  DED(NARG). 

8.  The  following  fixed  point  arguments  are  required  for 
the  CALL  statements: 


NUM  ) 
NUMlf 


Number  of  equations  in  the  system. 


IND  = 0,  variable  interval  using  Adams- Moulton 

predictor- corrector  method. 


NTEST  = Used  in  the  differential  equation  program 
in  order  to  have  the  correct  linkage  to  the 
differential  equation  routine.  Its  value  is 
set  in  the  differential  equation  routine. 

It  must  be  the  3rd  argument  of  DES  and 
the  argument  of  the  IF  statement  as 
indicated  below. 
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NARG 


= Calculated  in  the  differential  equation 
subprogram  and  tested  in  the  calling 
sequence  to  determine  whether  an 
integration  step  is  completed. 

EXAMPLE  CALLING  SEQUENCE 

CALL  DES(NUM1,  IND,  NTEST) 

7 IF  (NTEST)  15,  15,  11 
11  CALL  DEI(NUM,  IND,  NTEST) 

15  (Derivative  Calculation) 

CALL  D ED  (NARG) 
IF(NARG.EQ.O)  GOTO  7 


SUBPROGRAMS 
CALLED:  None 


ERROR  RETURNS:  If  an  error  is  detected,  a comment  is  printed  and  exit 

is  made  to  the  monitor.  Checks  are  made  for  the 
following  errors: 

Error  Error  comment 


1.  The  number  of  differential 
equations  N = 0. 


2.  N is  floating  or  n > 4096 


3.  Step  size  H = 0 


4 . Integr ation  mode  indicator 
4 0,  1,  or  2. 


5.  Predictor-corrector 
tolerance  E = 0 


Differential  equation  sub- 
routine DES  input  error 
N = 0. 

Differential  equation  sub- 
routine DES  input  error 
N FLT. 

Differential  equation  sub- 
routine DES  input  error 
H = 0. 

Differential  equation  sub- 
routine DES  input  error 
IND. 

Differential  equation  sub- 
routine DES  input  error 
E = 0. 


RESTRICTIONS: 

See 

above, 

ERROR  RETURNS 

STORAGE: 

1. 

DED 

4610  = 568 

2. 

DEDIS 

130910  = 2435g 

3. 

DEI 

3710  = 458 

4. 

DES 

3610  = 44  8 
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5.4  Appendix  D — Tape  Formats 


Format  1 — Geometry  definition  tape  format 

This  tape,  written  by  the  Geometry  Definition  section  and  read  by  the  Trans- 
formation section,  contains  18  binary  records  in  the  first  file.  Odd-numbered 
records  have  10  fixed -point  words;  even-numbered  records  have  a variable  num- 
ber of  floating-point  words.  The  tape  symbol  is  LA  in  subroutine  OPCAMI, 
LTAPE  in  subroutine  DEFEN1  (which  writes  the  tape) , and  LA  in  subroutine 
TFLAT  (which  reads  the  tape). 

Record  1:  Body  Stations 

Word  1 =1 

2 Number  of  words  in  record  2. 

3 Code*  (appears  after  record  18,  at  the  end  of  this  section). 
4-10  Not  used. 

Record  2:  Body  Stations 

Word  1 First  body  station. 

2 Second  body  station. 


n Last  body  station. 

Record  3:  Basic  Body  Meridian  Lines 

Word  1 =3 

2 Number  of  words  in  record  4. 

3 Code*. 

4 Number  of  meridian  lines. 

5-10  Not  used. 
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Record  4:  Basic  Body  Meridian  Lines 

Word  1 6 

2 Number  of  points  in  meridian  line.  } First  meridian  line. 

3 Word  number  of  first  point  in  meridian  line.1 
Repeat  for  each  additional  meridian  line. 

1 xx  \ 

i+  l l Coordinates  of  first  point  in  first  meridian  line. 

i  + 2 Zx  I 

Repeat  for  each  additional  point  in  first  meridian  line  and  con- 
tinue this  way  for  each  additional  meridian  line. 

Record  5:  Wing  Planform  (Leading  and  Trailing  Edge  Points  for  Each  Control 

Airfoil  or  Chord) 

Word  1 =5 

2 Number  of  words  in  record  6. 

3 Code*. 

4 Number  of  control  airfoils  or  chords. 

5-10  Not  used. 


Record  6:  Wing  Planform  (Leading  and  Trailing  Edge  Points  for  Each  Control 

Airfoil  or  Chord). 

Coordinates  of  leading-edge  point  of  first  control  airfoil 
or  chord. 

Coordinates  of  trailing-edge  point  of  first  control  airfoil 
or  chord. 

Follow  with  leading-  and  trailing-edge  points  of  remaining 
control  airfoils  or  chords. 

Record  7 : Basic  Upper  Wing  Percent  Chord  Lines 

Word  1 =7 

2 Number  of  words  in  record  8. 

3 Code*. 

4 Number  of  percent  chord  lines. 

5-10  Not  used. 


Word  1 X± ' 

2 Yl. 

3 X2j 

4 Y2j 
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Record  8: 
Word 


Record  9: 
Word 

5 

Record  10: 

Record  11: 
Word 


5 

Record  12: 
Word 


Basic  Upper  Wing  Percent  Chord  Lines 

1 Percent. 

2 Number  of  points  in  percent  chord  line . 

3 Word  number  of  first  point  in  percent  chord  line 
Repeat  for  each  additional  percent  chord  line  and  follow  with  the 
coordinates  of  each  point  in  each  percent  chord  line. 


First  percent 
chord  line. 


NOTE : The  format  of  record  8 is  identical  to  that  of  record  4 

except  that  words  1,  4,  7 3n-2  contain  percent  instead 

of  0,  where  n = number  of  percent  chord  lines. 


Basic  Lower  Wing  Percent  Chord  Lines 

1 =9 

2 Number  of  words  in  record  10. 

3 Code*. 

4 Number  of  percent  chord  lines. 

- 10  Not  used. 


Basic  Lower  Wing  Percent  Chord  Lines 
Same  format  as  record  8. 


Upper  Wing-Body  Intersection  Points 
1 =11 

2 Number  of  words  in  record  12. 

3 Code*. 

4 Number  of  intersection  points  of  upper  wing  percent  chord  lines 
with  body. 

- 10  Not  used. 


Upper  Wing -Body  Intersection  Points 

Coordinates  of  the  intersection  of  the  first  upper  wing 
percent  chord  line  with  the  body. 

Repeat  for  each  additional  intersection  point  of  the  upper  wing. 


2 Y1 
3 Zi 
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Record  13: 
Word 

5 

Record  14: 

Record  15: 
Word 


5 

Record  16: 
Word 

Record  17: 
Word 

5 

Record  18: 

* CODE  = 

< 

> 


Upper  Wing  Percent  Chord  Lines  (Outside  Body) 

1 =13 

2 Number  of  words  in  record  14. 

3 Code*. 

4 Number  of  percent  chord  lines. 

- 10  Not  used. 

Upper  Wing  Percent  Chord  Lines  (Outside  Body) 
Same  format  as  record  8. 


Lower  Wing -Body  Intersection  Points 

1 =15 

2 Number  of  words  in  record  16. 

3 Code*. 

4 Number  of  intersection  points  of  lower  wing  chord  percent  lines 
with  body. 

- 10  Not  used. 


Lower  Wing-Body  Intersection  Points 


1 

2 

3 


X1 

Yl 


Coordinates  of  the  intersection  of  the  first  lower  wing 

► 

percent  chord  line  with  the  body. 

i 


Repeat  for  each  additional  intersection  point  of  the  lower  wing. 


Lower  Wing  Percent  Chord  Lines  (Outside  Body) 

1 =17 

2 Number  of  words  in  record  18. 

3 Code*. 

4 Number  of  percent  chord  lines 

- 10  Not  used. 


Lower  Wing  Percent  Chord  Lines  (Outside  Body) 

Same  format  as  record  8. 

0 If  this  and  the  next  record  have  been  successfully  processed. 

0 An  error  occurred  and  the  next  record  is  a dummy  (all  zeros). 

0 This  option  was  not  requested;  the  next  record  is  a dummy  (all zeros). 
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Format  2 — Geometry  transformation  tape  format 

This  tape,  written  by  the  Geometry  Transformation  section  and  read  by  the 
Geometry  Paneling  section  of  the  program,  contains  6 binary  records  in  the  first 
file.  Odd-numbered  records  have  10  fixed-point  words ; even-numbered  records 
have  a variable  number  of  floating-point  words.  The  tape  symbol  is  LD  in  sub- 
routine OPCAMI , LD  in  subroutine  TFLAT  (which  writes  the  tape) , and  ND4 
in  subroutines  INPUTB  and  INPUTW  (which  read  the  tape) . 

Record  1:  Body  Meridian  Lines 

Word  1 =1 

2 Number  of  words  in  record  2. 

3 Code*  (appears  after  record  6,  at  the  end  of  this  section). 

4 Number  of  meridian  lines. 

5-10  Not  used. 

Record  2:  Body  Meridian  Lines 

Word  1 6 \ 

2 Number  of  points  in  meridian  line.  > First  meridian  line. 

3 Word  number  of  first  point  in  meridian  line  J 
Repeat  for  each  additional  meridian  line. 

1 Xi  1 

i + 1 > Coordinates  of  first  point  in  first  meridian  line. 

i + 2 Zn 
1 

Repeat  for  each  additional  point  in  first  meridian  line  and  con- 
tinue this  way  for  each  additional  meridian  line. 

Record  3:  Wing  Percent  Chord  Lines 

Word  1 =3 

2 Number  of  words  in  record  4. 

3 Code*. 

4 Number  of  percent  chord  lines. 

5-10  Not  used. 
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* CODE  = 0 If  this  and  the  next  record  have  been  successfully  processed. 

<0  An  error  occurred  and  the  next  record  is  a dummy  (all  zeros). 

> 0 This  option  was  not  requested;  the  next  record  is  a dummy  (all zeros). 
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1 


Format  3 — Transformation  data  tape  format 

This  tape , containing  three  records  in  the  first  file , is  written  by  the  Geom  - 
etry  Transformation  section  of  the  program;  both  the  Geometry  Paneling  and 
Aerodynamics  sections  read  the  tape.  The  tape  symbol  is  LB  in  subroutine 
OPCAMI,  LB  in  subroutine  TFLAT  (which  writes  the  tape),  ND1  in  subroutine 
INPUTB  (which  reads  only  the  first  record),  and  NTAPEB  in  subroutine  INTAPE 
(which  reads  all  records) . 

Record  1 

Word  1 x \ Components  of  a unit  vector  (in  original  coordinate 

2 y l system)  along  the  axis  of  the  new  coordinate 

3 z ^ system . 

4 zA  z coordinate  of  the  transformed  and  flattened  wing. 

5 a ) An  original  body  station  X is  related  to  the  new  body 

6 )9  J * station  x by  x = a X + £ . 

Record  2 

Word  1 NRX  Number  of  triplets  (x^  r.fz.)  in  record  3. 

2 INDEX  For  INDEX  = j.  The  triplet  (x.,r  .,  z.)  corresponds  to 
the  intersection  of  the  leading  edge  of  the  wing  with  the 
body  surface  (see  record  3) . 

Record  3 

After  the  body  has  been  transformed  to  a new  coordinate  system  such  that  the 
new  x axis  passes  through  the  centers  of  body  ends,  the  body  radius  and  centroid 
is  found  at  a number  of  body  stations.  Let  x = body  station,  r = body  radius,  and 
z = z-coordinate  of  body  centroid. 

Word  1 x 

2 r 

3 z 

Repeat  until  the  record  contains  NRX  triplets. 
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Format  4 — Geometry  Paneling  tape  format 

This  tape  is  written  by  the  Geometry  Paneling  section  for  use  in  the  Aero- 
dynamics section.  The  tape  symbol  NTAPE2  is  used  in  the  Geometry  Paneling 
section  and  NTAPEC  is  used  in  the  Aerodynamic  section.  The  sample  format 
given  below  is  that  used  for  a case  requiring  both  body  and  wing  paneling.  It 
should  be  noted  that  parts  1,  2,  and  3 are  deleted  for  a case  that  involves  only 
wing  paneling  and  that  the  tape  is  not  written  for  a body-alone  case.  Body 
paneling  data  are  written  in  parts  1,  2,  and  3 and  data  for  wing  paneling  in  parts 
4,  5,  and  6;  panel  corner  point  coordinates  are  output  in  parts  1 and  4 and  the 
additional  geometry  in  parts  2 and  5.  One-,  two-,  and  three-records  are 
written  in  parts  1 and  4 for  panels  of  one,  two,  and  three  parts  respectively. 

For  these  two  tape  parts,  the  initial  record  of  each  record  set  always  has  the 
format  of  record  1 as  given  below  and  the  remaining  records  of  the  set  have  the 
format  described  for  record  2.  A single  record  is  written  per  panel  in  parts 
2 and  5. 

Part  1 

Record  1 

Body  panel  number. 

Number  of  body  panel  parts. 

> Coordinates  of  inboard  leading-edge  comer  point  (first  panel 
part) . 

j 

I Coordinates  of  outboard  leading -edge  corner  point  (first  panel 
part) . 

(Coordinates  of  inboard  trailing-edge  comer  point  (first  panel 
part) . 


Word  1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 
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12 


Coordinates  of  outboard  trailing-edge  corner  point  (first  panel 
part). 


13 

14 


Coordinates  of  inboard  leading-edge  comer  point  (second  panel 
part). 

Coordinates  of  outboard  leading-edge  comer  point  (second  panel 
part). 

Coordinates  of  inboard  trailing-edge  comer  point  (second  panel 
part). 

Coordinates  of  outboard  trailing-edge  comer  point  (second  panel 
part). 

These  records  are  repeated  for  additional  body  panels  as  indi- 
cated above. 


Part  2 


Record  1 
Word  1 


8 

9 


Body  panel  number. 

Coordinates  of  body  panel  centroid. 

Coordinates  of  body  panel  control  point. 

Body  panel  area. 

Body  panel  0 -inclination  angle. 
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Part  3 

Record  1 
Word 


Part  4 

Record  1 
Word 


Record  2 
Word 


10  Body  panel  a -incidence  angle. 

11  Body  panel  (streamwise)  chord  length. 

This  single  record  is  repeated  for  each  additional  body  panel. 


1 Number  of  body  panels  per  column. 

2 Fractional  value  (XPER)  used  to  calculate  streamwise  location 
of  panel  control  point  (see  subroutine  PANEL). 

This  is  the  only  record  written  for  this  part. 


1 

2 

I! 


5 ) 


9 

10  > 
11 
12 

13  > 

14 


Wing  panel  number. 

Number  of  wing  panel  parts . 

Coordinates  of  inboard  leading-edge  comer  point  (first  panel 
part) . 

Coordinates  of  outboard  leading-edge  comer  point  (first  panel 
part). 

Coordinates  of  inboard  trailing-edge  corner  point  (first  panel 
part) . 

Coordinates  of  outboard  trailing-edge  corner  point  (first  panel 
part) . 


1 Coordinates  of  inboard  leading-edge  corner  point  (second  panel 
part) . 
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Part  5 

Record  1 
Word  1 


:j 

8 

9 

10 

11 

Part  6 
Record  1 
Word  1 
2 


Coordinates  of  outboard  leading -edge  comer  point  (second 
panel  part). 

Coordinates  of  inboard  trailing -edge  corner  point  (second  panel 
part). 


Coordinates  of  outboard  trailing-edge  corner  point  (second 
panel  part). 

Record  1 or  records  1 and  2 are  repeated  for  additional  one- 
or  two-part  wing  panels  as  indicated  above. 


Wing  panel  number. 

Coordinates  of  wing  panel  centroid. 


Coordinates  of  wing  panel  control  point. 

Wing  panel  area. 

Wing  panel  thickness  slope. 

Wing  panel  camber  slope. 

Wing  panel  (streamwise)  chord  length. 

This  one  record  is  repeated  for  each  additional  wing  panel. 


Number  of  wing  panels  per  column. 

Fractional  value  (XPER)  used  to  calculate  streamwise  location 
of  panel  control  point  (see  subroutine  PANEL). 

This  is  the  only  record  written  for  this  part. 
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Format  5 — Aerodynamics  save  tape  format 


This  tape  is  written  in  the  Aerodynamics  section  and  can  be  saved  for  analysis 
of  additional  aerodynamic  cases  on  later  computer  runs.  The  tape  is  also  used 
in  the  Flow  Visualization  section.  The  geometrical  data  of  parts  1-4  and  the 
aerodynamic  matrices  of  part  7 are  used  in  the  Aerodynamics  section.  Parts  5, 

6,  and  8-11  contain  data  for  the  Flow  Visualization  section.  The  tape  symbol 
is  NTAPEC  in  the  Aerodynamics  section  and  N8  in  the  Flow  Visualization 
section.  The  sample  format  given  below  is  that  used  for  a wing-body  configura- 
tion. Dummy  files  are  written  as  necessary  for  wing-alone  or  body-alone 
configuration. 


Part  1 


Word  1 


Panel  number 

x -,  y - , and  z-coordinates  of  panel  centroid. 


x -,  y -,  and  z-coordinates  of  panel  control  point. 
Panel  area. 

Panel  0 - inclination  angle. 

Panel  a —incidence  angle. 

Panel  chord  length. 

Words  1 through  11  are  repeated  for  each  panel. 


N + 1 Code  = 1,  for  wing-alone  or  body- alone  configuration 
= 2,  for  wing- body  configuration 

N + 2 Number  of  panel  rows  on  body  if  body- alone  or  wing- body 
configuration.  Number  of  panel  rows  on  wing  if  wing- 
alone  configuration. 

N + 3 Number  of  panel  rows  on  wing  if  wing- body  configuration. 
Otherwise,  = 0. 

N + 4 Fractional  value  for  chordwise  location  of  panel  control 
point. 


Part  2 

Word  1 Wing  panel  a thickness  slope. 

This  word  is  repeated  for  each  wing  panel. 
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Part  3 


Word  1 

Part  4 

Record  1 

Word  1 
2 

Record  2 
Word  1 

Record  3 
Word  1 

Record  4 
Part  5 

Word  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


Wing  panel  a camber  slope. 

This  word  is  repeated  for  each  wing  panel. 


Number  of  body  meridian  lines. 

Angle  of  first  body  meridian  line. 

Word  2 is  repeated  for  each  body  meridian  line. 


Body  radius  at  first  body  station. 

This  word  is  repeated  for  each  body  station 


Body  camber  at  first  body  station. 

This  word  is  repeated  for  each  body  station. 

(Same  as  record  3) 


Code  = 1,  if  wing-alone  configuration. 

= 2,  if  body- alone  configuration. 

= 3,  if  wing-body  configuration. 

Total  number  of  panels  on  configuration. 

Number  of  body  panels . 

Number  of  wing  panels . 

Number  of  body  stations . 

Number  of  wing  panels  plus  number  of  panel  columns 
on  wing. 

Number  of  panel  rows  on  body  if  body-alone  or  wing-body 
configuration. 

Number  of  panel  rows  on  wing  if  wing-alone  configuration. 
Number  of  panel  rows  on  wing  if  wing-body  configuration. 

Otherwise,  = 0. 

Mach  number. 

Symmetry  condition. 
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Part  6 


Record  1 
Word  1 

Record  2 
Word  1 

Record  3 

Word  1 } 

3 ) 


Record  4 


Record  5 


Record  6 


Total  number  of  panels  on  configuration. 


Number  of  panel  parts  for  first  panel. 


x-  , y-  and  z-coordinates  of  inboard  leading  edge  corner 
point  of  first  panel  part. 

x-  , y-  and  z-coordinates  of  outboard  leading  edge  corner 

point  of  first  panel  part. 

x-  , y-  and  z-coordinates  of  inboard  trailing  edge  corner 
point  of  first  panel  part. 

x-  , y-  and  z-coordinates  of  outboard  trailing  edge  corner 
point  of  first  panel  part. 

Record  3 is  repeated  for  each  panel  part.  Record  2 and 
Record(s)  3 are  repeated  as  a set  for  each  panel. 


x-  , y-  and  z-coordinates  of  panel  centroid. 
Words  1-3  are  repeated  for  each  panel. 


x-  , y-  and  z-coordinates  of  panel  control  point. 
Words  1 through  3 are  repeated  for  each  panel. 


Panel  a — incidence  angle. 

Panel  ©-inclination  angle. 

Panel  chord  length. 

Words  1 through  3 are  repeated  for  each  panel. 
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Part  7 


Record  1 

[Aww] 

Record  2 

[ww] 

Record  3 

[ww]-1 

Record  4 

[ww]-1 

Record  5 

[uww] 

[vww] 

[www] 

Record  6 

UBB 

v 

[WBB 

Record  7 

[uwb] 

vwb] 

'wwb] 

Record  8 

[UBW] 

[vbw] 

[WBw] 

Record  9 

[ uww] 

[ vww 
[www 

Matrix  of  aerodynamic  influence  coefficients  due 
to  wing  sources. 

Drag  minimization  matrix. 

Inverse  of  drag  minimization  matrix  constrained 
for  wing  lift. 

Inverse  of  drag  minimization  matrix  constrained 
for  wing  lift  and  pitching  moment. 


Matrices  of  velocity  components  on  the  wing  due 
to  wing  sources. 


Matrices  of  velocity  components  on  the  body  due 
to  body  surface  vortices. 


Matrices  of  velocity  components  on  the  wing  due 
to  body  surface  vortices. 


Matrices  of  velocity  components  on  the  body  due 
to  wing  surface  vortices. 


Matrices  of  velocity  components  on  the  wing  due  to 
wing  surface  vortices. 
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Record  10  £ A.^  J "Reduced"  aerodynamic  matrix. 

[ar]  = | [Aww]  " [awb][abb]  [abw]  | 


Record  11 

M'1 

Inverse  of  "reduced"  aerodynamic  matrix. 

Record  12  j 

>bb]‘1 

Inverse  of  matrix  of  aerodynamic  influence 
coefficients  on  the  body  due  to  body  surface 
vortices. 

Record  13 

[»] 

Product  matrix. 

[d]  = [^b]  • [abw] 

Record  14 

0] 

Product  matrix. 

[e]  = [abb]  • [abw] 

Part  8 

Word  1 Code  = 0. , wing  thickness  effects  not  to  be  included. 

= 1.  , wing  thickness  effects  to  be  included. 

2 Angle  of  attack  of  configuration. 

Part  9 
Record  1 

Word  1 Number  of  wing  panels  plus  number  of  panel  columns  on 

wing. 

Record  2 

Word  1 Wing  panel  a T thickness  slope. 

Record  2 is  repeated  for  each  wing  column  leading  edge 
and  wing  panel  trailing  edge. 

Part  10 
Record  1 

Word  1 Number  of  body  stations. 

Record  2 

Word  1 x-coordinate  at  first  body  station. 

2 Body  radius  at  first  body  station. 

Words  1 and  2 are  repeated  for  each  body  station. 
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Record  3 


Word  1 
2 

Record  4 

Word  1 
2 

Part  11 

Record  1 
Word  1 

Record  2 
Word  1 


Strength  of  quadratically  varying  source  at  first  body 
station. 

Strength  of  quadratically  varying  doublet  at  first  body 
station. 

Words  1 and  2 are  repeated  for  each  body  station. 


Strength  of  linearly  varying  source  at  body  nose. 
Strength  of  linearly  varying  doublet  at  body  nose. 


Total  number  of  panels  on  configuration. 


Strength  of  vortex  on  panel  surface. 
Word  1 is  repeated  for  each  panel. 


465 

(466  BLANK) 


Appendix  E — Subroutine  Listings 

Listings  of  the  subroutines  in  the  following  index  are  given  in  this  appendix 

Subroutine  Index 


Subroutine 

Page  No. 

Subroutine 

Page  No 

AERO 

470 

CLOK 

515 

ALLIN 

472 

CNTRLB 

516 

ALPHAB 

473 

CNTRLW 

518 

AMATE 

474 

COEFS 

520 

AREAP 

475 

COMCU 

521 

ARFREE 

476 

COMP 

522 

ARFUL 

478 

CP 

523 

ARSECR 

479 

CRNRB 

524 

BCAM 

481 

CRNRW 

529 

BCUTX 

482 

CUBIC2 

533 

BITURP 

483 

CVEL 

534 

BJTURP 

485 

DC  P D 

535 

BLDM 

487 

DC  PI 

536 

BLUNDR 

488 

DED 

537 

BODCR 

489 

DEDIS 

538 

BODY 

492 

DEFEN1 

543 

BODY1 

494 

DEFEND 

544 

BODY1M 

497 

DEI 

546 

BODY1R 

499 

DERIV1 

547 

BODY1S 

501 

DERIV2 

548 

BSCALE 

503 

DERI  VS 

548 

BTHICK 

504 

DES 

549 

CAMBER 

505 

DISPTA 

550 

CAMBW 

506 

DMAXL 

551 

CAMBWB 

507 

ELLIPR 

552 

CEGAR 

508 

ENRYCH 

553 

CENTRD 

509 

EVAL 

557 

CHECK 

510 

EVALI 

565 

CHORDW 

511 

FASNCS 

574 

CLEAR 

513 
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Subroutine 

Page  No. 

Subroutine 

Page  No. 

FA  TNI 

578 

LENG 

684 

FCALC 

583 

LOC 

685 

FDATE 

592 

MDMATE 

686 

FFSF 

595 

MEAN 

688 

FFSR 

599 

MERR 

689 

floout 

602 

NWEED 

690 

FLOVIZ 

604 

OPCAM 

691 

FORCES 

607 

OPCAMI 

693 

FROOTA 

614 

OPTIM3 

694 

FRUN 

617 

OPTMW 

696 

FTAN 

619 

OPTMWB 

697 

FVIO 

623 

OUTB 

698 

GEOMD 

625 

OUTPTB 

699 

GRIDS 

627 

OUTPTW 

704 

IADARY 

630 

OUTW 

710 

IBFR 

631 

PANEL 

711 

ICODE 

633 

PAR  TV 

712 

IDLETE 

635 

POLXN 

713 

INIBFR 

636 

QRAT 

715 

INOUT 

638 

READ 

716 

INPUTB 

640 

REDUCE 

717 

INPUTW 

645 

RICH3A 

719 

INTAPE 

649 

RICHNA 

722 

INTPOL 

654 

RITE 

724 

INTURP 

655 

RRAT 

726 

INV4S 

656 

SAVTAP 

727 

INVBB 

669 

SCAMP4 

729 

INVRW 

670 

SIMUN3 

730 

INVW 

671 

SINVRT 

731 

IPACK 

672 

SIZE 

733 

IRLEAS 

673 

SLOPEW 

734 

IRSERV 

674 

STRM1 

743 

KARMOR 

675 

TDUMP 

746 

LACKEY 

682 

TFLAT 

747 
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Subroutine 

Page  No. 

Subroutine 

Page  No 

TFLAT1 

754 

VDOTN 

779 

TFLATM 

757 

VDOTP 

780 

TFLATW 

759 

VEL1 

781 

TFLATX 

761 

WBX 

784 

THE TAB 

762 

WBXA 

789 

TRAPCT 

763 

WBXC 

790 

TRAV 

764 

WBXD 

791 

TROTPT 

765 

WBXUL 

793 

TTAPE 

766 

WBXX 

796 

TVEL 

767 

WING 

801 

UFOOL 

769 

WING1 

803 

UNO  7 

770 

WING1A 

807 

UN08 

771 

WING  IB 

810 

UNO  9 

772 

WING2 

812 

UPDATE 

773 

WING2P 

814 

USE TAP 

775 

WINGA 

815 

UVECN 

777 

WLDM 

816 

VCROS 

778 
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cut  the  boov  with  a station  plane  thru  each  wing  percent  point  in  turn 

UNTIL  THE  INTERSECTION  POINT  IS  ISOLATED  BETWEEN  2 ADJACENT  WING  POINTS. 
THEN  ITERATE  UNTIL  THE  X-VALUE  OF  THE  INTERSECTION  IS  FOUND  (WITHIN  EPS) 
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THE  X-VALUE  (=W(LWP))  OF  THIS  WING  PERCENT  POINT  IS  OUTSIDE 
THE  RANGE  OF  BODY  X-VALUES.  HOWEVER,  THE  PREVIOUS  WING 
PERCENT  POINT  WAS  OK.  ONLY  1 OF  THE  BODY  END  POINTS  CAN 
LIE  SFTWEEN  W(LWPP)  AND  W(LWP).  FIND  THIS  POINT,  INTERSECT 
THE  WING  PERCENT  LINE  SEGMENT  WITH  THE  CORRESPONDING 
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CALL  F ROOT  A ( R » JR ) 

RID  AND  R f 3 ) ARE  NEW  TRIAL  VALUES  OF  DISTANCE  ALONG  WGPTS 
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CUT  THE  BODY  WITH  A STATION  PLANE  THRU  EACH  WING  PERCENT  POINT  IN  TURN 
UNTIL  THE  INTERSECTION  POINT  IS  ISOLATED  BETWEEN  2 ADJACENT  WING  POINTS. 
THEN  ITFRATE  UNTIL  THE  X-VALUE  0E  THE  INTERSECTION  IS  FOUND  (WITHIN  EPS) 
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THE  X-VALUE  (=W(LWP))  OF  THIS  WING  PERCENT  POINT  IS  OUTSIDE 
THE  RANGE  OF  BODY  X-VALUES.  HOWEVER*  THE  PREVIOUS  WING 
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- LENGTH  Of  THF  LINE  SEGMENT  WGPTS 
WAS  SET  TO  0 PREVIOUSLY 
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